Nothing
#' Default installation files
#'
#' This function moves files stored in \code{system.file('installation', package = 'RInno')} to \code{app_dir}:
#' \itemize{
#' \item Icons for installer and app, \emph{setup.ico}, \emph{default.ico} and \emph{default.png}.
#' \item Files that manage app start up, \emph{utils/package_manager.R} and \emph{utils/launch_app.R}.
#' \item First/last page of the installation wizard, \emph{infobefore.txt} and \emph{infoafter.txt}.
#' \item Batch support files, \emph{utils/wsf/run.wsf}, \emph{utils/wsf/js/run.js}, \emph{utils/wsf/js/json2.js}, and \emph{utils/wsf/js/JSON.minify.js}.
#' }
#' @inheritParams create_app
#'
#' @author Jonathan M. Hill
#'
#' @seealso \code{\link{create_app}}
#'
#' @export
copy_installation <- function(app_dir = getwd(), overwrite = TRUE) {
# Set option for location of app
options("RInno.app_dir" = app_dir)
utils <- file.path(app_dir, "utils")
wsf <- file.path(app_dir, "utils/wsf")
wsf_js <- file.path(app_dir, "utils/wsf/js")
if (!dir.exists(utils)) dir.create(utils)
if (!dir.exists(wsf)) dir.create(wsf)
if (!dir.exists(wsf_js)) dir.create(wsf_js)
install_files <- list.files(system.file("installation", package = "RInno"), full.names = TRUE)
# Files for each dir
base_files <- grep("ico$|txt$", install_files, value = TRUE)
wsf_files <- grep("wsf$", install_files, value = TRUE)
wsf_js_files <- grep("js$", install_files, value = TRUE)
utils_files <- grep(".R$", install_files, value = TRUE)
# Return files
file.copy(base_files, app_dir, overwrite = overwrite)
file.copy(wsf_files, wsf, overwrite = overwrite)
file.copy(wsf_js_files, wsf_js, overwrite = overwrite)
file.copy(utils_files, utils, overwrite = overwrite)
}
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.