R/make_shiny_app.R

In ukgovdatascience/orgsurveyr: Visualising and Analysing Organisation Data As Tidy Networks

#' Create an example shiny app
#'
#' Creates an example shiny application file which can be used as a template to create
#' shiny apps with different configurations for deployment on a shiny server.
#'
#' @param app Name of app: test_viz or orgviz.  Defaults to test_viz.
#' @param path Location where the file should be created. Defaults to the user's home directory
#'
#' @return creates an example shiny app file
#' @export
#'
#' @examples
#' \dontrun{
#' # create the example shiny app
#' make_shiny_app(app='test_viz')
#'
#' # then edit and copy to the correct location
#' mv ~/example_shiny_app.R ~/ShinyApps/my_app/app.R
#' }
make_shiny_app <- function(app='test_viz', path='~') {

  stopifnot(app %in% c('test_viz', 'orgviz'))

  example_path <- system.file(sprintf('shiny/%s_app.R', app), package='orgsurveyr')
  dest <- file.path(path, 'example_shiny_app.R')
  file.copy(example_path, dest)
  message(paste('Example shiny app created at ', dest))
}