mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-07 13:15:00 -05:00
17 lines
315 B
R
17 lines
315 B
R
library(shiny)
|
|
|
|
client <- clientPage(
|
|
|
|
textInput("val", caption = "Input:", initialValue = "Hello, World!"),
|
|
|
|
textOutput("valUpper", caption = "You said:")
|
|
)
|
|
|
|
server <- function(input, output) {
|
|
output$valUpper <- reactive(function() {
|
|
toupper(input$val)
|
|
})
|
|
}
|
|
|
|
runApp(client, server, port = 8300)
|