tests/testthat/apps/issue-24/app.R

library(shiny)
ui <- fluidPage(
  numericInput('num', "num", "5")
)

server <- function(input, output, session) {
  observe(cat(input$num))
}

shinyApp(ui = ui, server = server)
MangoTheCat/shinytest documentation built on April 20, 2019, 3:24 p.m.