From 0d00fbefa7a76fd9363d1ae8ade4721a953d6a4d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 9 Dec 2015 09:50:29 +0100 Subject: Data upload: increase preview area, show data after upload --- inst/GUI/gmkin.R | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'inst') diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R index ad52839..8d85d64 100644 --- a/inst/GUI/gmkin.R +++ b/inst/GUI/gmkin.R @@ -684,6 +684,7 @@ new_ds_from_csv_handler <- function(h, ...) { if (is.null(ds.cur$data$err)) ds.cur$data$err <<- 1 update_ds.df() update_ds_editor() + svalue(right) <- 2 } else { galert("Uploading failed", parent = "w") } @@ -737,9 +738,10 @@ upload_dataset.gf <- gfile(text = "Upload text file", cont = ds.editor, # Import options {{{3 ds.e.import <- ggroup(cont = ds.editor, horizontal = FALSE) 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("
", cont = ds.e.preview, width = 380, height = 150)
+ds.e.preview <- ggroup(cont = ds.e.import, 
+                      # width = 540,  height = 150,
+                       ext.args = list(layout = list(type="vbox", align = "center")))
+ds.e.up.text <- ghtml("
", cont = ds.e.preview, width = 530, height = 150)
 
 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,
-- 
cgit v1.2.1