小编Ber*_*end的帖子

• 我认为解决方案很简单：pickerinput 只需要在输入关闭后发送选定的值即可；它不需要在用户每次选择后发送值（并触发更新）。来自AirdatePickerInputShinywidgets 的具有此特定功能（update_on=c('change', 'close')。我需要的是我的 pickerInput仅在“关闭”时更新。这样结果值仅发送回服务器一次。

示例：用户界面

ui <- fluidPage(
  
  # Title panel
  fluidRow(
    column(2,
           wellPanel(
           h3("Filters"),
           uiOutput("picker_a"),
           uiOutput("picker_b"),
           )
    ),
  )
)

服务器

server <- function(input, output, session) {
  
  # Start values for each filter  
  all_values_for_a <- tbl(conn, "table") %>%
    distinct(a) %>%
    collect()
  
  all_values_for_b <- tbl(conn, "table") %>%
    distinct(b) %>%
    collect()
  
  output$picker_a <- renderUI({
    pickerInput(
      inputId = "picker_a",
      label = "a:", 
      choices …