R/zzz.R

In biomod2: Ensemble Platform for Species Distribution Modeling

#' Dummy function to clean working directory after package checks
#'
#' This is the last function that will be check and will remove residual files 
#' from other examples checking such as 'GuloGulo'. This is required to pass
#' CRAN checks.
#' @return
#' nothing returned
#' @keywords internal
#' @export
#'
#' @examples
#' 
#' zzz_bm()

zzz_bm <- function() {
  unlink('GuloGulo', recursive = TRUE)
  unlink('Periparus.ater', recursive = TRUE)
  fi <- list.files(path = '.', pattern = 'GuloGulo|Periparus')
  if (length(fi) > 0) file.remove(fi)
}