.runApp {interactiveDisplayBase} | R Documentation |
This utility function launches a shiny visualization application, either in the RStudio viewer pane (if run under RStudio) or in the browser.
.runApp(app, ...)
app |
The shiny application definition, see |
... |
additional arguments passed to |
The return value of shiny::runApp
.
Martin Morgan
if (interactive()) { require(shiny) app <- list( ui = fluidPage( title="Who Am I?", sidebarLayout( position="left", sidebarPanel( h1("Your name"), textInput("your_name", "Your name?", "Anonymous"), actionButton("done", "Done")), mainPanel( "Hi", textOutput("your_name", inline=TRUE)) )), server = function(input, output) { output$your_name <- renderText(input$your_name) observe({ if (input$done > 0) isolate(stopApp(returnValue = input$your_name)) }) }) .runApp(app) }