change progress bar position

Yunuuuu · Sep 21, 2023 · 5cf7778 · 5cf7778
1 parent bb07841
commit 5cf7778
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/parsers.R b/R/parsers.R
@@ -107,7 +107,6 @@ parse_gse_soft <- function(file_text, entity_type = "all", only_meta = FALSE) {
     )
     for (i in seq_along(entity_indices)) {
         accession <- entity[[2L]][[i]]
-        cli::cli_progress_update()
         entity_data <- parse_gpl_or_gsm_soft(file_text[
             seq_line_temp[[i]]:(seq_line_temp[[i + 1L]] - 1L)
         ])
@@ -118,6 +117,7 @@ parse_gse_soft <- function(file_text, entity_type = "all", only_meta = FALSE) {
             datatable = entity_data$data_table,
             accession = accession
         )
+        cli::cli_progress_update()
     }
     soft_data_list <- split(
         soft_data_list,