# A very simple Shiny app that takes a message from the user
# and outputs an uppercase version of it.
shinyServer(function(input, output, session) {
output$uppercase <- renderText({
toupper(input$message)
})
})
Run the code above in your browser using DataLab