Nothing
#'
#'You can run the animaltracker 'shiny' app by calling this function.
#'@param browser logical, whether to launch the app in your default browser (defaults to TRUE)
#'@param showcase logical, whether to launch the app in 'showcase' mode (defaults to FALSE)
#'@return None
#'@export
run_shiny_animaltracker <- function( browser = TRUE, showcase=FALSE) {
requireNamespace("shiny")
requireNamespace("leaflet")
requireNamespace("dplyr")
requireNamespace("ggplot2")
requireNamespace("shinyWidgets")
requireNamespace("shinycssloaders")
requireNamespace("leaflet.extras")
requireNamespace("shinythemes")
requireNamespace("sp")
requireNamespace("raster")
requireNamespace("shinyjs")
requireNamespace("shinyBS")
options(shiny.maxRequestSize=30*1024^2)
# Run the application (see associated functions, defined separately)
if(browser | showcase){
runApp(shinyApp(ui = app_ui, server = app_server),
launch.browser=browser, display.mode = ifelse(showcase, "showcase", "normal"))
}else{
shinyApp(ui = app_ui, server = app_server)
}
}
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.