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