Code Editor for app.R

library(shiny)

ui <- fluidPage(
    # Create numeric input
    numericInput("number", "Enter a number:", value = 0),
    
    # Display the result
    h4("Result:"),
    textOutput("result")
)

server <- function(input, output) {
    output$result <- renderText({
        # Multiply input by 2
        input$number * 2
    })
}

shinyApp(ui = ui, server = server)