ui <- fluidPage( numericInput("count", label = "Number of values", value = 100), textOutput("double"))server <- function(input, output, session) { output$double <- renderPrint(2*input$count)}shinyApp(ui, server)