aboutsummaryrefslogtreecommitdiff
path: root/inst/GUI
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-05-10 13:23:57 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-05-10 13:23:57 +0200
commit325bc51393b8ce4e6782eb03692b5534f13658d7 (patch)
tree71b0fe9ad61e742a9746a44c945f9b777176c4a5 /inst/GUI
parenteca560083b70cc1bd72b4a46ae0677a7b8c8106e (diff)
Rename variables in uploaded data in long format
Diffstat (limited to 'inst/GUI')
-rw-r--r--inst/GUI/gmkin.R10
1 files changed, 7 insertions, 3 deletions
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 = "",

Contact - Imprint