R/sapply_pb.R

In dty0606/oasisad: 'OASISAD' an Improved Automated White Matter Hyper-intensity Classficiation Tool

#' @title OASISAD sapply with processing bar
#' @description Add process bar to sapply.
#' @param X same argument in sapply.
#' @param FUN same argument in sapply.
#' @param ... Arguments for FUN
#' @return results same as sapply
#' @export
#' @importFrom utils txtProgressBar setTxtProgressBar


#sapply function with processing bar
sapply_pb <- function(X, FUN, ...)
{
  env <- environment()
  pb_Total <- length(X)
  counter <- 0
  pb <- txtProgressBar(min = 0, max = pb_Total, style = 3)

  wrapper <- function(...){
    curVal <- get("counter", envir = env)
    assign("counter", curVal +1 ,envir=env)
    setTxtProgressBar(get("pb", envir=env), curVal +1)
    FUN(...)
  }
  res <- sapply(X, wrapper, ...)
  close(pb)
  res
}