R/close_multiprocess.R

In connectscape/Makurhini: Makurhini: Analyzing landscape connectivity

#' Close parallel process
#'
#' @param w numeric. workers or number of cores
#' @references Revanth Nemani. 2020. https://stackoverflow.com/questions/59652303/kill-futures-from-future-apply-on-linux#comment105470849_59652303
#' @importFrom tools pskill
#' @importFrom ps ps
#' @importFrom future sequential
#' @export

close_multiprocess <- function(w){
  if(missing(w) | !missing(w)){
    a <- ps::ps(); a <- a[which(a$name =="Rscript.exe"),1]
    for(i in a){
      tools::pskill(i)
    }
    sequential()
  }
}