Question

我想知道单击了哪个复选框组。例如，当点击组“ a”时； “ b”，那么我想将其存储在一个来自“ subset_one”的变量中。

有什么想法吗？

library(shiny)
  obs_ev <- "c(input[['subset_one']], 
               input[['subset_two']], 
               input[['subset_three']])"
  shinyApp(
    shinyUI(
      fluidPage(
        uiOutput('ui')
      )
    ),
    shinyServer(function(session, input, output) {

      output$ui <- renderUI({
        inputPanel(
          checkboxGroupInput('subset_one',   'Subset:', choices = c("a", "b")),
          checkboxGroupInput('subset_two',   'Subset:', choices = c("c", "d")),
          checkboxGroupInput('subset_three', 'Subset:', choices = c("e", "f"))
        )
      })

      observeEvent(eval(parse(text = obs_ev)), {
        print("1")
        print(input[['subset_one']])
        print("2")
        print(input[['subset_two']])
        print("3")
        print(input[['subset_three']])

        dat  <- eval(parse(text = obs_ev))

        print(dat)

      }, ignoreNULL = FALSE)
    })
  )

Answer 1

如果您想知道触发了什么，我认为最好为每个要监视的对象设置不同的观察者，然后设置一个可以处理实际观察者之外的所有响应的函数。例如，考虑这种解决方案

library(shiny)
obs_list <- c("subset_one","subset_two","subset_three")
shinyApp(
  shinyUI(
    fluidPage(
      uiOutput('ui')
    )
  ),
  shinyServer(function(session, input, output) {

    output$ui <- renderUI({
      inputPanel(
        checkboxGroupInput('subset_one',   'Subset:', choices = c("a", "b")),
        checkboxGroupInput('subset_two',   'Subset:', choices = c("c", "d")),
        checkboxGroupInput('subset_three', 'Subset:', choices = c("e", "f"))
      )
    })

    lapply(obs_list, function(obs) {
      observeEvent(input[[obs]], {changeVal(obs, input[[obs]])}, ignoreNULL = FALSE)
    })

    changeVal <- function(obj, val) {
      print(paste("changed", obj, "val", paste(val, collapse=",")))
      dat  <- do.call("c", lapply(obs_list, function(x) input[[x]]))

      print(dat)
    }

  })
)

请注意，我摆脱了eval(parse())的内容。我会尽量避免这种情况。但是这里我们使用lappy为每个输入建立一个不同的观察者。然后，我们调用一个函数来处理响应，指示实际单击了哪个对象。

闪亮的R确定选中了哪个复选框

1 个答案: