R/add_resource_path.R

In golem: A Framework for Robust Shiny Applications

#' Add resource path
#'
#' @inheritParams shiny::addResourcePath
#' @param warn_empty Boolean. Default is `FALSE`.
#'     If TRUE display message if directory is empty.
#'
#' @importFrom shiny addResourcePath
#'
#' @export
#'
#' @return Used for side effects.
add_resource_path <- function(
  prefix,
  directoryPath,
  warn_empty = FALSE
) {
  list_f <- length(
    list.files(
      path = directoryPath
    )
  ) == 0

  if (list_f) {
    if (warn_empty) {
      warning("No resources to add from resource path (directory empty).")
    }
  } else {
    addResourcePath(prefix, directoryPath)
  }
}