library(shiny)
ui <- fluidPage(
textInput("name", "What's your name?"),
textOutput("greeting")
)
server <- function(input, output, session) {
output$greeting <- renderText(paste("Hello", input$name))
}
shinyApp(ui, server)
Created
August 10, 2021 14:13
-
-
Save maurolepore/dde1e7dc35aa7e98dc236ce43f56bad3 to your computer and use it in GitHub Desktop.