aboutsummaryrefslogtreecommitdiff
path: root/inst/GUI/gmkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2015-11-27 23:46:34 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2015-11-27 23:46:34 +0100
commit7343bd8c25edf8d0f14a6609ba6c6d6e72c995fb (patch)
tree4754b1c0a3363e0e1b682ce2921aaf5093f126f3 /inst/GUI/gmkin.R
parent72b109ac04a50f009ea41d5f24e767d13e31e241 (diff)
Some manual updates and fixes to the import of wide data
Diffstat (limited to 'inst/GUI/gmkin.R')
-rw-r--r--inst/GUI/gmkin.R9
1 files changed, 7 insertions, 2 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index bbce29b..2028fbc 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -663,6 +663,9 @@ new_ds_from_csv_handler <- function(h, ...) {
stringsAsFactors = FALSE))
if(svalue(ds.e.up.widelong) == "wide") {
tmpdl <- mkin_wide_to_long(tmpd, time = as.character(svalue(ds.e.up.wide.time)))
+ tmpdl$name <- as.character(tmpdl$name)
+ tmpdl$override <- NA
+ tmpdl$err <- 1
} else {
tmpdl <- data.frame(
name = tmpd[[svalue(ds.e.up.long.name)]],
@@ -736,8 +739,10 @@ visible(ds.e.import) <- FALSE
ds.e.preview <- ggroup(cont = ds.e.import, width = 400, height = 150,
ext.args = list(layout = list(type="vbox", align = "center")))
ds.e.up.text <- ghtml("<pre></pre>", cont = ds.e.preview, width = 380, height = 150)
-ds.e.up.import <- gbutton("Import using options specified below", cont = ds.e.import,
- handler = new_ds_from_csv_handler)
+
+ds.e.up.import.line <- ggroup(cont = ds.e.import)
+ds.e.up.import <- gbutton("Import using options specified below", cont = ds.e.up.import.line,
+ width = 250, handler = new_ds_from_csv_handler)
ds.e.up.options <- ggroup(cont = ds.e.import, width = 200, horizontal = FALSE)
ds.e.up.skip <- gedit(tmptextskip, label = "Comment lines", width = 20, cont = ds.e.up.options)
ds.e.up.header <- gcheckbox(cont = ds.e.up.options, label = "Column names",

Contact - Imprint