.sendOutput {shinyCohortBuilder}

Send output rendering

Description

Functional approach to rendering output. Equivalent of 'output[[name]] <- rendering'.

Usage

.sendOutput(name, rendering, session = shiny::getDefaultReactiveDomain())

Arguments

name

Name of the output to be rendered

rendering

Rendering expression to be sent.

session

Shiny session object.

Value

No return value, used for side effect which is assigning rendering to the output object.

Examples

if (interactive()) {
  library(shiny)
  library(shinyCohortBuilder)

  rendering <- function(x_max) {
    renderPlot({
      x <- seq(0, x_max, by = 0.01)
      plot(x, sin(x), type = "l")
    })
  }

  ui <- fluidPage(
    numericInput("xmax", "X Axis Limit", min = 0, max = 10, value = pi),
    plotOutput("out")
  )

  server <- function(input, output, session) {
    observeEvent(input$xmax, {
      .sendOutput("out", rendering(input$xmax))
    })
  }

  shinyApp(ui, server)
}