Search in global workspace if 'x' is string

ices-tools-prod · Jun 28, 2018 · ff4d679 · ff4d679
1 parent 7b552d8
commit ff4d679
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: icesTAF
 Version: 1.6-1
-Date: 2018-05-16
+Date: 2018-06-28
 Title: Functions to Support the ICES Transparent Assessment Framework
 Authors@R: c(person("Arni", "Magnusson", role=c("aut","cre"), email="[email protected]"),
              person("Colin", "Millar", role="aut"))

diff --git a/NEWS b/NEWS
@@ -1,5 +1,5 @@
 --------------------------------------------------------------------------------
-icesTAF 1.6-1 (2018-05-17)
+icesTAF 1.6-1 (2018-06-28)
 --------------------------------------------------------------------------------
 o Changed sourceTAF(), sourceAll(), makeTAF(), and makeAll() so they never
   delete the 'begin' folder.
@@ -9,6 +9,8 @@ o Changed sourceAll(), makeTAF(), makeAll() so they don't set the working
 
 o Changed clean() so user can specify directories to remove.
 
+o Changed write.taf() to search in the global workspace if 'x' is a string.
+
 
 
 

diff --git a/R/write.taf.R b/R/write.taf.R
@@ -51,7 +51,7 @@ write.taf <- function(x, file=NULL, dir=NULL, quote=FALSE, row.names=FALSE,
   {
     if(is.null(file))
       file <- paste0(x, ".csv")
-    x <- get(x)
+    x <- get(x, envir=.GlobalEnv)
   }
   if(is.null(file))
     file <- paste0(deparse(substitute(x)), ".csv")