# NOT RUN {
# 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)
})
})
# It is also possible for a server.R file to simply return the function,
# without calling shinyServer().
# For example, the server.R file could contain just the following:
function(input, output, session) {
output$uppercase <- renderText({
toupper(input$message)
})
}
# }
Run the code above in your browser using DataLab