## Not run: ------------------------------------
# library(shiny)
#
# ui <- fillPage(...)
#
# server <- function(input, output, session) {
# ...
# }
#
# # Either pass ui/server as separate arguments...
# runGadget(ui, server)
#
# # ...or as a single app object
# runGadget(shinyApp(ui, server))
## ---------------------------------------------
Run the code above in your browser using DataLab