aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-07-31 22:04:49 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-07-31 22:05:11 +0200
commite0479797ba4588092aa0eab13f33224bbba5b4d0 (patch)
tree9168fb2043b887dbc2d470425af51dab2f87046a
parent0cbd4e1ae1692a9cb664e5bd24f9beebdbe56b7d (diff)
Initialise tmptextheader, close braces in statusline
The initialisation of tmptextheader avoids that it shows up in the global environment after a text file is imported
-rw-r--r--inst/GUI/gmkin.R3
1 files changed, 2 insertions, 1 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index d9ac76f..5473c58 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -22,7 +22,7 @@
# Set the GUI title and create the basic widget layout {{{1
w <- gwindow("gmkin - Browser based GUI for kinetic evaluations using mkin")
sb <- gstatusbar(paste("Powered by gWidgetsWWW2 (ExtJS, Rook)",
- "and mkin (FME, deSolve and minpack.lm",
+ "and mkin (FME, deSolve and minpack.lm)",
"--- Working directory is", getwd()), cont = w)
pg <- gpanedgroup(cont = w, default.size = 260)
center <- gnotebook(cont = pg)
@@ -326,6 +326,7 @@ new_dataset_handler <- function(h, ...) {
update_ds_editor()
}
+tmptextheader <- character(0)
load_text_file_with_data <- function(h, ...) {
tmptextfile <<- normalizePath(svalue(h$obj), winslash = "/")
tmptext <- readLines(tmptextfile, warn = FALSE)

Contact - Imprint