diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-31 22:04:49 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-31 22:05:11 +0200 |
| commit | e0479797ba4588092aa0eab13f33224bbba5b4d0 (patch) | |
| tree | 9168fb2043b887dbc2d470425af51dab2f87046a | |
| parent | 0cbd4e1ae1692a9cb664e5bd24f9beebdbe56b7d (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.R | 3 |
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)
|