From 325bc51393b8ce4e6782eb03692b5534f13658d7 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Sat, 10 May 2014 13:23:57 +0200 Subject: Rename variables in uploaded data in long format --- inst/GUI/gmkin.R | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'inst') diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R index ffd7589..46bd405 100644 --- a/inst/GUI/gmkin.R +++ b/inst/GUI/gmkin.R @@ -354,14 +354,18 @@ new_ds_from_csv_handler <- function(h, ...) { if(svalue(ds.e.up.widelong) == "wide") { tmpdl <- mkin_wide_to_long(tmpd, time = as.character(svalue(ds.e.up.wide.time))) } else { - tmpdl <- tmpd + tmpdl <- data.frame() + tmpdl$name <- tmpd[[svalue(ds.e.up.long.name)]] + tmpdl$time <- tmpd[[svalue(ds.e.up.long.time)]] + tmpdl$value <- tmpd[[svalue(ds.e.up.long.value)]] + tmpdl$err <- tmpd[[svalue(ds.e.up.long.err)]] } if (class(tmpd) != "try-error") { ds.cur <<- as.character(1 + length(ds)) ds[[ds.cur]] <<- list( study_nr = NA, - title = "New upload", - sampling_times = sort(unique(tmpd$t)), + title = "New import", + sampling_times = sort(unique(tmpdl$time)), time_unit = "", observed = unique(tmpdl$name), unit = "", -- cgit v1.2.1