Nothing
uiLogsJobs <- function() {
fluidRow(
shinydashboard::tabBox(title = "", width = 12, id = "logs_panel",
tabPanel("Logs", verbatimTextOutput("logs_view")
),
tabPanel("Job Queue",
h3("Job Queue"),
tableOutput("job_queue_table"),
h3("Running Jobs"),
tableOutput("job_run_table"),
h3("Done"),
tableOutput("job_done_table")
)
)
)
}
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.