R/pillar_utils.R

In rorynolan/detrendr: Detrend Images

pillars_to_cols <- function(arr3d, parallel = FALSE) {
  n_cores <- translate_parallel(parallel)
  RcppParallel::setThreadOptions(n_cores)
  on.exit(RcppParallel::setThreadOptions(RcppParallel::defaultNumThreads()))
  pillars_to_cols_(arr3d)
}

cols_to_pillars <- function(mat, output_dim, parallel = FALSE) {
  n_cores <- translate_parallel(parallel)
  RcppParallel::setThreadOptions(n_cores)
  on.exit(RcppParallel::setThreadOptions(RcppParallel::defaultNumThreads()))
  cols_to_pillars_(mat, output_dim)
}