radioButtons() 与 uiOutput() 和 observeEvent(input[[""]] - 闪亮

Question

我尝试用闪亮的方式观察事件。如果我手动定义收音机，它将被正确观察 - 输出：print(paste0("SELECT * FROM daten;"))。我想避免在 ui.r 中编写十分之几的单选按钮。因此我在服务器部分写了一个循环。 但是相同的 observeEvent() 不会对我的“循环列表”单选按钮做出反应，这些单选按钮在闪亮的应用程序中正确构建。我不知道为什么。

我写了一个最小的例子：

library(shiny)

shinyApp(
  ui = fluidPage(
    
    ####### manually set radio #######
    print("This radio 'pd1' will be observed:"),
    radioButtons(inputId = "pd1", label = "value:", choices = c("?", "0", "1")),
    br(), br(),
    
    ####### versus looped set set radio #######
    
    uiOutput("scrlst"),
  ),
  
  server = function(input, output) {
    
    tablscr <- data.frame("1","question")
    
    ###################### observeEvent
    ##### "counter" for several items (in this case just 1 item)
    rv <- reactiveValues(counter = 0)
    lapply(1:dim(tablscr)[1], function(i) {
      isolate({qnum <- paste0('pd', rv$counter <- rv$counter + 1)})
      observeEvent(input[[qnum]], {print(paste0("SELECT * FROM daten;"))})
    })
    
    ### output for tenths of items in one loop  (in this case just 1 item)
    output$scrlst <- renderUI({
      tagList(
        scr <- list(),
        for (sq in 1:dim(tablscr)[1]){
          scr[[sq]] = list(sq,
                           print("This radio 'pd1' will not be observed:"),
                           radioButtons(inputId = "pd1", label = "value:", choices = c("?", "0", "1")),
                           br(),
                           br()
          )
        },
        return(scr),
      )
    })
  }
)

Answer 1

你的tagList 包含一个循环和一个返回语句听起来很奇怪。此外，您有一个重复的 id pd1。这是一个工作代码：

library(shiny)

shinyApp(
  ui = fluidPage(
    
    uiOutput("scrlst")
    
  ),
  
  server = function(input, output) {
    
    tablscr <- data.frame(c("1","2"), c("question", "hello"))
    
    lapply(1:nrow(tablscr), function(i) {
      qnum <- paste0('pd', i)
      observeEvent(input[[qnum]], {print(paste0("SELECT * FROM daten;"))})
    })
    
    output$scrlst <- renderUI({
      do.call(tagList, lapply(1:nrow(tablscr), function(i){
        tagList(
          radioButtons(paste0("pd", i), label = "value:", choices = c("?", "0", "1")),
          br(), br()
        )
      }))
    })
    
  }
)