Skip to contents

This module inspects the input data and identifies columns by which the verification is grouped. A selectInput dropdown is created for each group and updated depending on the selections in other groups. The verification data are filtered to the selected values for each group.

Usage

group_selectorsUI(id)

group_selectors(input, output, session, verif_data)

Arguments

id

An ID string for the module's UI

input

input reactive

output

output reactive

session

Session from which to make a child scope (the default should almost always be used).

verif_data

verification data as a reactive value

Value

The verification data as a reactive value filtered to the values selected for each group.

Examples

library(shiny)

ui <- fluidPage(
  fluidRow(
    group_selectorsUI("grps")
  ),
  fluidRow(
    plotOutput("plt")
  )
)

server <- function(input, output, session) {
  grp_data <- callModule(group_selectors, "grps", reactive(verif_data_grp))
  output$plt <- renderPlot({
    plot_point_verif(req(grp_data()), spread)
  })
}

if (interactive()) {
  shinyApp(ui, server)
}