R/utils.R

In jefferis/nat: NeuroAnatomy Toolbox for Analysis of 3D Image Data

# patch over an issue with trailing separators on Windows
file.exists <- function(...) {
  x=unlist(pairlist(...), use.names = FALSE)
  if (.Platform$OS == "windows") {
    x=sub("[/\\]$","", x)
  }
  base::file.exists(x)
}

# hidden
nat_progress <- function (x, max = 100, message = NULL) {
  percent <- x / max * 100
  cat(sprintf('\r|%-50s| ~%d%% %s',
              paste(rep('=', percent / 2), collapse = ''),
              floor(percent), message))
  if (x == max)
    cat('\n')
}

# to check if we should use natcpp
# always=TRUE => use if installed even if option says otherwise
use_natcpp <- function(always=FALSE) {
  opcheck <- isTRUE(always) || !isFALSE(getOption('nat.use_natcpp'))
  opcheck && requireNamespace('natcpp', quietly = TRUE)
}