compatibility with current and future crew

R/class_crew.R

@@ -217,7 +217,6 @@ crew_class <- R6::R6Class(
       } else {
         self$controller$wait(
           mode = "one",
-          seconds_interval = 0.5,
           seconds_timeout = 0.5,
           scale = TRUE,
           throttle = TRUE
@@ -308,7 +307,6 @@ crew_summary <- function(controller) {
   summary <- controller$summary()
   data_frame(
     controller = summary$controller,
-    worker = summary$worker,
     seconds = summary$seconds,
     targets = summary$tasks
   )
@@ -318,7 +316,7 @@ database_crew <- function(path_store) {
   database_init(
     path = file.path(path_meta_dir(path_store), "crew"),
     subkey = file.path(basename(path_meta("")), "crew"),
-    header = c("controller", "worker", "seconds", "targets"),
+    header = c("controller", "seconds", "targets"),
     integer_columns = "targets",
     numeric_columns = "seconds"
   )

R/tar_crew.R

@@ -5,11 +5,12 @@
 #'   where a `crew` controller was started, get summary-level information
 #'   of the workers.
 #' @inheritSection tar_meta Storage access
-#' @return A data frame one row per `crew` worker and the following columns:
+#' @return A data frame one row per `crew` controller
+#'   (potentially multiple rows if `tar_option_get("controller")`
+#'   is a controller group) and the following columns:
 #'   * `controller`: name of the `crew` controller.
-#'   * `launches`: number of times the worker was launched.
-#'   * `seconds`: number of seconds the worker spent running tasks.
-#'   * `targets`: number of targets the worker completed and delivered.
+#'   * `targets`: number of times the controller attempted to run a target.
+#'   * `seconds`: number of seconds the workers spent running tasks.
 #' @inheritParams tar_validate
 #' @examples
 #' if (identical(Sys.getenv("TAR_EXAMPLES"), "true")) { # for CRAN