Fix #72

wlandau · May 9, 2023 · d92d2c4 · d92d2c4
1 parent 3d37463
commit d92d2c4
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -16,7 +16,7 @@ Description: In computationally demanding analysis projects,
   'clustermq' by Schubert (2019) <doi:10.1093/bioinformatics/btz284>),
   and 'batchtools' by Lang, Bischel, and Surmann (2017)
   <doi:10.21105/joss.00135>.
-Version: 0.1.1.9003
+Version: 0.1.1.9004
 License: MIT + file LICENSE
 URL: https://wlandau.github.io/crew/, https://github.com/wlandau/crew
 BugReports: https://github.com/wlandau/crew/issues

diff --git a/NAMESPACE b/NAMESPACE
@@ -44,7 +44,6 @@ importFrom(ps,ps_is_running)
 importFrom(ps,ps_kill)
 importFrom(rlang,abort)
 importFrom(rlang,as_function)
-importFrom(rlang,duplicate)
 importFrom(rlang,enquo)
 importFrom(rlang,quo_squash)
 importFrom(stats,runif)

diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@
 * Use `set.seed()` instead of `withr::local_seed()` (#67, @shikokuchuo).
 * Add a vignette to showcase integration with Shiny, co-authored with @dwoodie and with helpful suggestions by @shikokuchuo.
 * Add a new `pad_daemons` argument to routers and controllers to avoid too frequent calls to `mirai::daemons()`.
+* Drop `rlang::duplicate()` (#72, @shikokuchuo).
 
 # crew 0.1.1
 

diff --git a/R/crew_package.R b/R/crew_package.R
@@ -25,7 +25,7 @@
 #' @importFrom processx process
 #' @importFrom ps ps_handle ps_is_running ps_kill
 #' @importFrom R6 R6Class
-#' @importFrom rlang abort as_function duplicate enquo quo_squash
+#' @importFrom rlang abort as_function enquo quo_squash
 #' @importFrom stats runif
 #' @importFrom tibble tibble
 #' @importFrom tidyselect all_of any_of contains ends_with eval_select

diff --git a/R/crew_router.R b/R/crew_router.R
@@ -84,10 +84,7 @@ crew_class_router <- R6::R6Class(
           nanonext::msleep(interval - elapsed)
         }
       }
-      out <- rlang::duplicate(
-        mirai::daemons(.compute = self$name)$daemons,
-        shallow = FALSE
-      )
+      out <- mirai::daemons(.compute = self$name)$daemons
       if (self$pad_daemons) {
         self$polled <- nanonext::mclock()
       }