avoid memo_expr()

Author: wlandau-lilly

NEWS.md

@@ -2,6 +2,7 @@
 
 * Remove environment locking, c.f. https://github.com/r-lib/rlang/issues/1705.
 * Export S3 methods.
+* Avoid `memo_expr()` because it causes errors on R-devel.
 
 # Version 7.13.9
 

R/create_drake_graph.R

@@ -7,18 +7,8 @@ create_drake_graph <- function(
   logger
 ) {
   args <- list(plan = plan, jobs = jobs, logger = logger, cache = cache)
-  edges <- memo_expr(
-    cdg_create_edges(args, spec),
-    cache,
-    plan,
-    spec
-  )
-  memo_expr(
-    cdg_finalize_graph(edges, targets, args),
-    cache,
-    edges,
-    targets
-  )
+  edges <- cdg_create_edges(args, spec)
+  cdg_finalize_graph(edges, targets, args)
 }
 
 cdg_create_edges <- function(args, spec) {

R/create_drake_spec.R

@@ -21,21 +21,9 @@ create_drake_spec <- function(
   )
   imports <- cds_prepare_imports(args)
   imports_kernel <- cds_imports_kernel(args, imports)
-  import_spec <- memo_expr(
-    cds_analyze_imports(args, imports),
-    args$cache,
-    imports_kernel
-  )
+  import_spec <- cds_analyze_imports(args, imports)
   knitr_hash <- cds_get_knitr_hash(args)
-  command_spec <- memo_expr(
-    cds_analyze_commands(args),
-    args$cache,
-    args$plan,
-    args$trigger,
-    import_spec,
-    imports_kernel,
-    knitr_hash
-  )
+  command_spec <- cds_analyze_commands(args)
   cds_set_knitr_files(args = args, spec = command_spec)
   out <- c(import_spec, command_spec)
   list2env(out, parent = emptyenv(), hash = TRUE)