## 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)
# })
# }
# ## End(Not run)
Run the code above in your browser using DataLab