.setup/load/load.R

In jeksterslab/template: Title

#' Load R Scripts in `R`, `.setup/r-dependencies`, `.setup/r-miscellaneous`
#'
#' @param rproj Object.
#'   Output of `rprojroot::is_rstudio_project`
Load <- function(rproj) {
  # sources
  # root/R
  # root/.setup/r-dependencies
  # root/.setup/r-miscellaneous
  x <- list.files(
    path = rproj$find_file(
      "R"
    ),
    pattern = "\\.R$",
    full.names = TRUE,
    all.files = TRUE,
    recursive = TRUE
  )
  x <- c(
    x,
    list.files(
      path = rproj$find_file(
        ".setup",
        "r-dependencies"
      ),
      pattern = "\\.R$",
      full.names = TRUE,
      all.files = TRUE,
      recursive = TRUE
    )
  )
  x <- c(
    x,
    list.files(
      path = rproj$find_file(
        ".setup",
        "r-miscellaneous"
      ),
      pattern = "\\.R$",
      full.names = TRUE,
      all.files = TRUE,
      recursive = TRUE
    )
  )
  if (length(x) > 0) {
    invisible(
      lapply(
        X = x,
        FUN = source
      )
    )
  }
}