#' 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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.