Replace quote() with rlang::expr() in run.R

Begins to address #200. Tries to support the !! operator and quosures.
ropensci · Jan 30, 2018 · c89f028 · c89f028
1 parent 7412d4b
commit c89f028
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -59,6 +59,7 @@ Imports:
   parallel,
   plyr,
   R.utils,
+  rlang,
   rprojroot,
   stats,
   storr (>= 1.1.0),

diff --git a/NAMESPACE b/NAMESPACE
@@ -162,6 +162,7 @@ importFrom(parallel,parLapply)
 importFrom(parallel,stopCluster)
 importFrom(plyr,ddply)
 importFrom(plyr,dlply)
+importFrom(rlang,expr)
 importFrom(rprojroot,find_root)
 importFrom(stats,coef)
 importFrom(stats,complete.cases)

diff --git a/R/package.R b/R/package.R
@@ -54,6 +54,7 @@
 #' mclapply parLapply stopCluster
 #' @importFrom plyr ddply dlply
 #' @importFrom R.utils isPackageLoaded withTimeout
+#' @importFrom rlang expr
 #' @importFrom rprojroot find_root
 #' @importFrom stats coef complete.cases lm rnorm rpois runif setNames
 #' @importFrom storr encode64 storr_environment storr_rds

diff --git a/R/run.R b/R/run.R
@@ -98,7 +98,7 @@ give_up <- function(target, config){
 wrap_in_try_statement <- function(target, command){
   paste(
     target,
-    "<- evaluate::try_capture_stack(quote({\n",
+    "<- evaluate::try_capture_stack(rlang::expr({\n",
     command,
     "\n}), env = config$envir)"
   )