Fix #881

NEWS.md

@@ -2,7 +2,8 @@
 
 ## Bug fixes
 
-- Do not rehash large imported files every `make()` [#878](https://github.com/ropensci/drake/issues/878).
+- Do not rehash large imported files every `make()` ([#878](https://github.com/ropensci/drake/issues/878)).
+- Repair parsing of long tidy eval inputs in the DSL ([#878](https://github.com/ropensci/drake/issues/881)).
 
 ## New features
 

R/api-dsl.R

@@ -438,7 +438,7 @@ explicit_new_groupings <- function(code, exclude = character(0)) {
     if (is.call(x)) {
       x <- x[-1]
     }
-    as.character(lapply(as.list(x), deparse))
+    as.character(lapply(as.list(x), long_deparse))
   })
 }
 

R/utils-utils.R

@@ -333,6 +333,10 @@ fill_cols <- function(x, cols) {
   x
 }
 
+long_deparse <- function(x, collapse = "\n") {
+  paste(deparse(x), collapse = collapse)
+}
+
 safe_deparse <- function(x, collapse = "\n") {
   paste(
     deparse(x, control = c("keepInteger", "keepNA")),

inst/WORDLIST

@@ -62,6 +62,7 @@ else's
 eng
 envir
 ETag
+eval
 Factual's
 Falster
 faq

tests/testthat/test-dsl.R

@@ -2501,3 +2501,29 @@ test_with_dir("splitting with tidy eval", {
   )
   equivalent_plans(out, exp)
 })
+
+test_with_dir("parse long tidyeval inputs", {
+  l <- lapply(100, function(x) rep("a", x))
+  out <- drake_plan(
+    a = target(
+      length(x),
+      transform = map(x = !!l, y = !!seq_along(l), .id = y)
+    )
+  )
+  exp <- drake_plan(
+    a_1L = length(
+      c(
+        "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a",
+        "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a",
+        "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a",
+        "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a",
+        "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a",
+        "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a",
+        "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a",
+        "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a",
+        "a", "a", "a", "a", "a"
+      )
+    )
+  )
+  equivalent_plans(out, exp)
+})