## Only run examples in interactive R sessions
if (interactive()) {
ui <- fixedPage(
h3("Simple shinyglide app"),
glide(
screen(
next_label = "Go next",
next_condition = "input.x > 0",
p("First screen."),
numericInput("x", "x", value = 0)
),
screen(
p("Final screen."),
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab