From feb851104393f67d14148a471501e59361853914 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Wed, 6 Nov 2013 15:25:16 +0000
Subject: Start to enable the import of CSV files.

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@143 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 inst/GUI/mkinGUI.R | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'inst')

diff --git a/inst/GUI/mkinGUI.R b/inst/GUI/mkinGUI.R
index 921daea7..f5c30767 100644
--- a/inst/GUI/mkinGUI.R
+++ b/inst/GUI/mkinGUI.R
@@ -301,6 +301,34 @@ new_dataset_handler <- function(h, ...) {
   update_ds_editor()
 }
 
+new_ds_from_csv_handler <- function(h, ...) {
+  tmpfile <- normalizePath(svalue(h$obj), winslash = "/")
+  tmpd <- try(read.table(tmpfile, sep = "\t", header = TRUE))
+  tmpdw <- mkin_wide_to_long(tmpd)
+  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)),
+                          time_unit = "NA",
+                          observed = unique(tmpdw$name),
+                          unit = "NA",
+                          replicates = max(aggregate(tmpdw$time,
+                                                       list(tmpdw$time,
+                                                            tmpdw$name),
+                                                     length)$x),
+                          data = tmpdw)
+    ds[[ds.cur]]$data$override <<- "NA"
+    ds[[ds.cur]]$data$err <<- 1
+    update_ds.df()
+    ds.gtable[,] <- ds.df
+    update_ds_editor()
+  } else {
+    galert("Uploading failed", parent = "w")
+  }
+}
+
 empty_grid_handler <- function(h, ...) {
   obs <- strsplit(svalue(ds.e.obs), ", ")[[1]]
   sampling_times <- strsplit(svalue(ds.e.st), ", ")[[1]]
@@ -345,6 +373,9 @@ gbutton("Copy dataset", cont = ds.e.2, handler = copy_dataset_handler)
 gbutton("Delete dataset", cont = ds.e.2, handler = delete_dataset_handler)
 gbutton("New dataset", cont = ds.e.2, handler = new_dataset_handler)
 
+gfile(text = "Select csv file", cont = ds.e.2, 
+        handler = new_ds_from_csv_handler)
+
 # Line 3 with forms {{{4
 ds.e.forms <- ggroup(cont= ds.editor, horizontal = TRUE)
 
-- 
cgit v1.2.1