From e0479797ba4588092aa0eab13f33224bbba5b4d0 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 31 Jul 2014 22:04:49 +0200 Subject: 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 --- inst/GUI/gmkin.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- cgit v1.2.1