diff --git a/R/Wf.R b/R/Wf.R index 193b018..549948c 100644 --- 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 index 676962e..ecbf6f3 100644 --- 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 |>