如何访问/记住 Shiny 中未检查的值？

Question

我在 R 中摆弄一个闪亮的应用程序。该应用程序有

• 一个选择列表输入A（主要组）与可能的值A，B 和/或 C
• 一组复选框输入b（子组），它们是 由 Input A 列表中的选择动态填充：chkb a 和 chkb b 代表 A，c,d 代表 B，和/或 e,f 代表 C
• 带有映射的数据框df

它是这样的：

我的问题是 Input b 忘记了之前未选中的复选框。所以 - 关于屏幕录制 - 值 b 必须在列表 Input A 中的每个新选择中再次取消选中。

问：如何更改以下代码，以便

1. 输入 A 中的新添加列表项仍会在 输入 b 中自动检查，并且
2. 之前输入 b 中未选中的值被记住；至少只要 Input A 中的相应类别没有被取消选择

代码如下：

library(shiny)
df <- data.frame(
  a = rep(LETTERS[1:3], each = 2), 
  b = letters[1:6]
)

ui <- fluidPage(
  column(6, selectInput("selectinput", "Input A", levels(df$a), multiple = T)),
  column(6, checkboxGroupInput("checkinput", "Input b", NULL))
)

server <- function(input, output, session) {
  observe({
    allPossibleB <- df$b[df$a %in% input$selectinput]
    updateCheckboxGroupInput(session, 
      "checkinput", "Input b",
      choices = allPossibleB,
      selected = setdiff(allPossibleB, NULL), # <=== previously unchecked instead NULL?
      inline = TRUE
    )
  })
}

shinyApp(ui, server)

我尝试了几件事，但我认为不值得一提，因为我对 Shiny 和基本概念没有太多经验。也许有一种简单的方法不仅可以访问输入小部件的检查值吗？

提前感谢任何提示和帮助！

Answer 1

您可以使用reactiveValues() 来记住检查的值。

我对命名列表进行了编辑以存储选中框的信息。如果您打算按字母顺序选择input A，这是必要的，..

checked <- as.list(rep(T, length(df$b)))
names(checked) <- df$b

在应用程序内部，您必须使用 isolate()，因为由于某种原因，input$selectinput 的更新速度比 input$checkinput 快，这会导致选择逻辑出现问题。所以我们只想在input$checkinput 有变化时更新。是的，我使用 for 循环来更新（未）检查值的列表:)。

  global <- reactiveValues(checked = checked)

  observe({
    input$checkinput
    isolate({
      if(!is.null(input$checkinput)){
        possible <- as.character(df$b[df$a %in% input$selectinput])
        for(nr in 1:length(possible)){
          global$checked[[possible[nr]]] <- (possible %in% input$checkinput)[nr]
        }
      }
    })
  })

完整的应用程序是：

library(shiny)

df <- data.frame(
  a = rep(LETTERS[1:3], each = 2), 
  b = letters[1:6]
)

checked <- as.list(rep(T, length(df$b)))
names(checked) <- df$b


ui <- fluidPage(
  column(6, selectInput("selectinput", "Input A", levels(df$a), multiple = T)),
  column(6, checkboxGroupInput("checkinput", "Input b", NULL))
)

server <- function(input, output, session) {
  global <- reactiveValues(checked = checked)

  observe({
    input$checkinput
    isolate({
      if(!is.null(input$checkinput)){
        possible <- as.character(df$b[df$a %in% input$selectinput])
        for(nr in 1:length(possible)){
          global$checked[[possible[nr]]] <- (possible %in% input$checkinput)[nr]
        }
      }
    })
  })

  observe({
    allPossibleB <- df$b[df$a %in% input$selectinput]
    updateCheckboxGroupInput(session, 
                             "checkinput", "Input b",
                             choices = allPossibleB,
                             selected = df$b[unlist(global$checked)], # <=== previously unchecked instead NULL?
                             inline = TRUE
    )
  })
}

shinyApp(ui, server)

Answer 2

column(6, updateCheckboxGroupInput("checkinput", "Input b", NULL, selected = input$checkinput))

或者如果您有“无”选项：

column(6, updateCheckboxGroupInput("checkinput", "Input b", NULL, selected = if(is.null(input$checkinput)){"none"}else{input$checkinput}))

为了将它们与 A、B、C 分组，您可以创建响应值来存储每个组的选择，并使用观察者来更改输入中的活动组。我会尽快发布代码 这是承诺的代码，我的 BigData 回答的版本

library(shiny)
df <- data.frame(
a = rep(LETTERS[1:3], each = 2), 
b = letters[1:6]
)

ui <- fluidPage(
 column(6, selectInput("selectinput", "Input A", levels(df$a), multiple =  TRUE)),
 column(6, checkboxGroupInput("checkinput", "Input b", NULL))
 )

server <- function(input, output, session) {
checkin <- reactiveValues(A = NULL,B = NULL, C = NULL,puts = NULL)
observeEvent(input$selectinput,{
  if("A" %in% input$selectinput){
    checkin$A <- input$checkinput[which(input$checkinput %in% df$b[which(df$a[df$b] == "A")])]
  }
  if("B" %in% input$selectinput){
    checkin$B <- input$checkinput[which(input$checkinput %in% df$b[which(df$a[df$b] == "B")])]
  }
  if("C" %in% input$selectinput){
    checkin$C <- input$checkinput[which(input$checkinput %in% df$b[which(df$a[df$b] == "C")])]
  }
    checkin$puts <- c(if(!is.null(checkin$A)){checkin$A},if(!is.null(checkin$B)){checkin$B},if(!is.null(checkin$C)){checkin$C})
  })
observe({
 allPossibleB <- df$b[df$a %in% input$selectinput]
 updateCheckboxGroupInput(session, 
                         "checkinput", "Input b",
                         choices = allPossibleB,
                         selected = checkin$puts ,
                         inline = TRUE
 )
 })
 }

 shinyApp(ui, server)