Nothing
require(shiny)
require(shinydashboard)
require(DT)
require(shinybatch)
# create directory for conf
dir_conf <- paste0(tempdir(), "/conf")
if (dir.exists(dir_conf)) unlink(dir_conf, recursive = TRUE)
dir.create(dir_conf, recursive = T)
# get fun path
fun_path = system.file("ex_fun/sb_fun_ex_demo_app.R", package = "shinybatch")
# check if cron already existed
# else create it
exists_cron <- scheduler_exist("cr_sc_demo")
if(!exists_cron){
# init dir_scheduler
dir_scheduler <- paste0(tempdir(), "/cron")
if (dir.exists(dir_scheduler)) unlink(dir_scheduler, recursive = TRUE)
dir.create(dir_scheduler, recursive = T)
scheduler_add(dir_scheduler = dir_scheduler,
dir_conf = dir_conf,
max_runs = 1,
head_rows = NULL,
taskname = "cr_sc_demo")
}
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.