mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
16 lines
412 B
R
16 lines
412 B
R
#' Run the application server.
|
|
#'
|
|
#' @param port The port to serve the application on.
|
|
#'
|
|
#' @export
|
|
run_app <- function(port = 3464) {
|
|
# These function calls make the required java scripts available.
|
|
|
|
shinyjs::useShinyjs()
|
|
rclipboard::rclipboardSetup()
|
|
shinyWidgets::pickerInput("none", choices = NULL)
|
|
|
|
# Actually run the app.
|
|
|
|
shiny::runApp(shiny::shinyApp(ui, server), port = port)
|
|
}
|