show progressbar even in non interactive context

loosolab · Dec 4, 2018 · 9bd64be · 9bd64be
1 parent 96efc46
commit 9bd64be
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/bin/reduce_bed.R b/bin/reduce_bed.R
@@ -231,6 +231,8 @@ find_kmer_regions <- function(bed, kmer_counts, minoverlap = 1 , threads = NULL)
 
 # call function with given parameter if not in interactive context (e.g. run from shell)
 if (!interactive()) {
+  # show apply progressbar
+  pbo <- pbapply::pboptions(type = "timer")
   # remove last parameter (help param)
   params <- opt[-length(opt)]
   do.call(reduce_bed, args = params)