R/fun_run_shiny.R

In CTU-Basel/shinysse: Sample size estimation demo shiny app

#' Launches the shinysse Shiny web app
#'
#' You can run the web application by calling the run_shiny() function.
#'
#' @seealso \code{\link{app_server}}, \code{\link{app_ui}}
#' @export
#'
run_shiny <- function(){
    ## make resources available globally from non standard location
    addResourcePath("www", system.file("www", package = "shinysse"))
    shiny_app <- shinyApp(ui = app_ui, server = app_server)
    return(shiny_app)
}