R/run_app.R

In jacciz/shiny_wisdot_crash_dashboard: WisDOTcrashdashboard

#' Run the Shiny Application
#'
#' @param ... A series of options to be used inside the app.
#'
#' @export
#' @importFrom shiny shinyApp
#' @importFrom golem with_golem_options
run_app <- function(
  ...
) {
  with_golem_options(
    app = shinyApp(
      ui = app_ui,
      server = app_server
    ),
    golem_opts = list(...)
  )
}
# electricShine
# run_app <- function(options = list(),
#     ...
# ) {
#   with_golem_options(
#     app = shinyApp(
#       ui = app_ui,
#       server = app_server,
#       options = options
#     ),
#     golem_opts = list(...)
#   )
# }
# # 
# buildPath <- "C:/test" #tempdir()
# # # 
# electricShine::electrify(
#   app_name = "My_App_TEST2",
#   short_description = "My demo application",
#   semantic_version = "1.0.0",
#   build_path = buildPath,
#   mran_date = NULL,
#   cran_like_url = "https://cran.r-project.org",
#   function_name = "run_app",
#   # git_host = "github",
#   # git_repo = "chasemc/demoApp@8426481",
#   local_package_path = "C:/Users/dotjaz/Documents/R/R-4.1.2/library",
#   package_install_opts = list(type = "binary"),
#   run_build = TRUE
# )
# .libPaths( c( .libPaths(), "C:/Users/dotjaz/Documents/R/R-4.1.2/library") )