Снятый вариант ответа Supressingfire:
source_local <- function(fname){
argv <- commandArgs(trailingOnly = FALSE)
base_dir <- dirname(substring(argv[grep("--file=", argv)], 8))
source(paste(base_dir, fname, sep="/"))
}
Наконец я смог установить размер столбца так, чтобы они были свернуты на перетаскивании. Вот пример кода, который я добавил в коде позади. Мог бы быть некоторый другой путь через xaml, но я не получил способ сделать это.
private void connectedReadersListView_DragDelta(object sender, System.Windows.Controls.Primitives.DragDeltaEventArgs e)
{
Thumb senderAsThumb = e.OriginalSource as Thumb;
GridViewColumnHeader header = senderAsThumb.TemplatedParent as GridViewColumnHeader;
if (header.Content.ToString() == "System.Windows.Controls.Button: READ" && header.Column.ActualWidth < 60)
{
header.Column.Width = 60;
}
if (header.Content.ToString() == "System.Windows.Controls.Button: DISCONNECT" && header.Column.ActualWidth < 160)
{
header.Column.Width = 160;
}
if (header != null && header.Content != null)
{
switch (header.Content.ToString().Trim().ToLower())
{
case "reader name":
if (header.Column.ActualWidth < 150)
{
header.Column.Width = 150;
}
break;
case "model":
if (header.Column.ActualWidth < 50)
{
header.Column.Width = 50;
}
break;