Nothing
#' Deploy (copy) the shiny application to the specified directory
#'
#' @param directory [[character]] A character vector of one path to the new location.
#' @param app_name [[character]] A character vector defining the shiny application name in the new location.
#'
#' @return [[logical]] A logical indicating whether the deployment is successfull (`TRUE`) or not (`FALSE`).
#' @export
#'
#' @examples
#'
#' deploy(directory = ".")
#'
#' if (interactive()) {
#' shiny::runApp("NACHO")
#' }
#'
deploy <- function(directory = "/srv/shiny-server", app_name = "NACHO") {
dir.create(file.path(directory, app_name), showWarnings = FALSE, recursive = TRUE)
all(file.copy(
from = list.files(system.file("app", package = "NACHO"), full.names = TRUE),
to = file.path(directory, app_name),
overwrite = TRUE, recursive = TRUE
))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.