aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2015-12-09 09:50:29 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2015-12-09 09:50:29 +0100
commit0d00fbefa7a76fd9363d1ae8ade4721a953d6a4d (patch)
tree631217df3d5c14955385817a1b6801cc7c118734
parent9065639aaa129e309beb80fa5dc0b313461a90f4 (diff)
Data upload: increase preview area, show data after upload
-rw-r--r--inst/GUI/gmkin.R8
1 files changed, 5 insertions, 3 deletions
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("<pre></pre>", 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("<pre></pre>", 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,

Contact - Imprint