shinyselect

The goal of shinyselect is to use tidyselect-like verbs when applying an observeEvent or eventReactive handler function to multiple elements

Installation

remotes::install_github("yonicd/shinyselect")

Functions that are defined are

• Observe

  • observe_contains: Contains a literal string matched to elements names in a reactive object.
  • observe_starts_with: Starts with a prefix that are matched to elements names in a reactive object.
  • observe_ends_with: Ends with a suffix that are matched to elements names in a reactive object.
  • observe_one_of: Matches elements names in a reactive object.

• Reactive

  • reactive_contains: Contains a literal string matched to elements names in a reactive object.
  • reactive_starts_with: Starts with a prefix that are matched to elements names in a reactive object.
  • reactive_ends_with: Ends with a suffix that are matched to elements names in a reactive object.
  • reactive_one_of: Matches elements names in a reactive object.

Example

This is a basic example which shows you how to solve a common problem:

Observe

library(shinyselect)

ui <- shiny::fluidPage(
  shiny::column(width = 6,
                lapply(1:4,FUN = function(x){
                  shiny::textInput(inputId = sprintf('txt_%02d',x),
                                   label = NULL,
                                   value = '',
                                   placeholder = letters[x])
                })),
  shiny::column(width = 6,
                lapply(1:4,FUN = function(x){
                  shiny::actionButton(inputId = sprintf('btn_%02d',x),label = 'update')
                })
                )
)

server <- shiny::shinyServer(function(input, output,session) {

  shinyselect::observe_contains('btn_0(1|3)',
                      handlerExpr = function(var_){
                        shiny::updateTextInput(
                          session,
                          inputId = gsub('btn','txt',var_),
                          value   = strrep(letters[as.numeric(gsub('[^0-9]','',var_))],3)
                          )
                      },input)

  shinyselect::observe_one_of(c('btn_02','btn_04'),
                                handlerExpr = function(var_){
                                  shiny::updateTextInput(
                                    session,
                                    inputId = gsub('btn','txt',var_),
                                    placeholder = 'something new'
                                  )
                                },input)

})

shiny::shinyApp(ui = ui, server = server)

Reactive

ui <- shiny::fluidPage(
  shiny::column(width = 6,
                lapply(1:4,FUN = function(x){
                  shiny::actionButton(inputId = sprintf('btn_%02d',x),label = 'update')
                })
                )
)

server <- shiny::shinyServer(function(input, output,session) {

  out <- shinyselect::reactive_one_of(c('btn_01','btn_03'),valueExpr = function(var_){
    runif(as.numeric(gsub('[^0-9]','',var_)))
  },input)

  shinyselect::observe_contains(match = 'btn_0(1|3)',
                              handlerExpr = function(var_){
                                print(out()[[var_]]())
                                },
                              input = out()
                              )

})

shiny::shinyApp(ui = ui, server = server)