dot_runApp: Run a shiny app, capturing results to the R session

In LiNk-NY/interactiveDisplayBase: Base package for enabling powerful shiny web displays of Bioconductor objects

Description

This utility function launches a shiny visualization application, either in the RStudio viewer pane (if run under RStudio) or in the browser.

Usage

.runApp(app, ...)

Arguments

app	The shiny application definition, see ?shiny::runApp.
...	additional arguments passed to shiny::runApp().

Value

The return value of shiny::runApp.

Author(s)

Martin Morgan

Examples

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)
}

LiNk-NY/interactiveDisplayBase documentation built on June 2, 2020, 12:02 a.m.