feat(doseResponseFit): Add progress bar

DESCRIPTION

@@ -31,7 +31,8 @@ Imports:
     dplyr,
     stats,
     parallel,
-    data.table
+    data.table,
+    utils
 Suggests:
     MSstats,
     MSstatsTMT,

NAMESPACE

@@ -48,3 +48,5 @@ importFrom(stats,pf)
 importFrom(stats,quantile)
 importFrom(stats,rlnorm)
 importFrom(stats,rnorm)
+importFrom(utils,setTxtProgressBar)
+importFrom(utils,txtProgressBar)

R/Fit_Isotonic_Regression.R

@@ -64,6 +64,7 @@
 #' @importFrom stats pf p.adjust
 #' @importFrom dplyr filter select mutate group_by summarise arrange distinct
 #' @importFrom data.table rbindlist
+#' @importFrom utils setTxtProgressBar txtProgressBar
 doseResponseFit = function(data, weights = NULL,
                            increasing = FALSE,
                            transform_dose = TRUE,
@@ -92,6 +93,7 @@ doseResponseFit = function(data, weights = NULL,
     protein_list = unique(drug_subset$protein)
     results_list = list()
 
+    progress_bar = txtProgressBar(min = 0, max = length(protein_list), style = 3)
     for (i in seq_along(protein_list)) {
       tryCatch({
         suppressWarnings({
@@ -130,11 +132,13 @@ doseResponseFit = function(data, weights = NULL,
           results_temp$drug = drug_type
           results_temp = results_temp[, c("protein", "drug", setdiff(names(results_temp), c("protein", "drug")))]
           results_list[[i]] = results_temp
+          setTxtProgressBar(progress_bar, i)
         })
       }, error = function(e) {
         warning(paste("Error for drug:", drug_type, "protein:", protein_list[i], ":", conditionMessage(e)))
       })
     }
+    close(progress_bar)
 
     # Combine and adjust p-values for this drug
     if (length(results_list) > 0) {