Nothing
aria_version <- function(){
description_path <- system.file("DESCRIPTION", package = "sistec")
as.character(read.dcf(description_path, fields = "Version"))
}
aria_run <- function(ui, server, version, options_port, options_launch_browser){
if(version == "online"){
shinyApp(ui, server)
} else {
shinyApp(ui, server, options = list(port = options_port,
launch.browser = options_launch_browser))
}
}
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.