Wf writer: return nested tibble, not list

umccr · Sep 29, 2024 · 52bca17 · 52bca17
1 parent 23defaf
commit 52bca17
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/R/Wf.R b/R/Wf.R
@@ -218,8 +218,7 @@ Wf <- R6::R6Class(
           out = list(write_dracarys(obj = .data$data, prefix = .data$p, out_format = format, drid = drid))
         ) |>
         dplyr::ungroup() |>
-        dplyr::select("name", "data") |>
-        tibble::deframe()
+        dplyr::select("name", "data")
       invisible(d_write)
     }
   ) # end public

diff --git a/R/fs_icav1.R b/R/fs_icav1.R
@@ -195,9 +195,7 @@ dr_gds_download <- function(gdsdir, outdir, token = Sys.getenv("ICA_ACCESS_TOKEN
     dplyr::pull(tot_size)
   if (!dryrun) {
     txt <- paste0(
-      "{date_log()} {e('arrow_heading_down')} Downloading ",
-      "{nrow(d)} files ({tot_size}) from {.file {gdsdir}} to ",
-      "{.file {outdir}}"
+      "{e('arrow_heading_down')} {nrow(d)} files ({tot_size}): {.file {gdsdir}}\n"
     )
     cli::cli_alert_info(txt)
     res <- d |>