chapters/2/2.8.2/app.R

In brunocarlin/mastering_shiny: Mastering Shiny Examples

ui <- fluidPage(
    sliderInput("x", label = "If x is", min = 1, max = 50, value = 30),
    "then x times 5 is",
    textOutput("product")
)

server <- function(input, output, session) {
    output$product <- renderText({
        input$x * 5
    })
}
shinyApp(ui, server)