Nothing
test_that("can run saved app", {
sleep_on_ci()
x <- 10
ui <- fluidPage(
textOutput("x")
)
server <- function(input, output, session) {
output$x <- renderText(x)
}
path <- app_save(shinyApp(ui, server))
app <- ShinyDriver$new(path)
expect_equal(app$getValue("x"), as.character(x))
})
test_that("can get ui and server from app", {
local_edition(3)
ui <- fluidPage("Hi!")
server <- function(input, output, session) {
"Hello there"
}
data <- app_data(shinyApp(ui, server))
expect_equal(data$ui, ui)
expect_equal(data$server, server)
})
test_that("can extract globals from server", {
x <- 10
server <- function(input, output, session) {
output$foo <- renderText(input$x + x)
}
globals <- app_server_globals(server)
expect_equal(globals$globals, list(x = 10))
expect_equal(globals$packages, "shiny")
})
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.