Question

我认为这是一个非常简单的用户案例，我无法找到解决方案：我希望Shiny生成用户指定数量的输入，为每个输入动态创建一个观察者。 / p>

在下面的最小可重现代码中，用户通过键入textInput窗口小部件来指示所需的操作按钮数量;然后，他或她按下＆＃34;提交＆＃34;，生成动作按钮。

我想要的是让用户能够点击任何操作按钮并生成特定于它的输出（例如，对于最小的情况，只需打印按钮的名称）：

library("shiny")

ui <- fluidPage(textInput("numButtons", "Number of buttons to generate"), 
                actionButton("go", "Submit"), uiOutput("ui"))

server <- function(input, output) {

        makeObservers <- reactive({

                lapply(1:(as.numeric(input$numButtons)), function (x) {

                        observeEvent(input[[paste0("add_", x)]], {

                                print(paste0("add_", x))

                        })

                }) 
        })

        observeEvent(input$go, {

                output$ui <- renderUI({

                        num <- as.numeric(isolate(input$numButtons))

                        rows <- lapply(1:num, function (x) {

                                actionButton(inputId = paste0("add_", x), 
                                         label = paste0("add_", x))

                        })

                        do.call(fluidRow, rows)

                })

                makeObservers()

        })


}

shinyApp(ui, server)

上面代码的问题在于，不知何故创建了几个观察者，但它们都只将传递给lapply的列表中的最后一项作为输入。因此，如果我生成四个动作按钮，并且单击动作按钮＃4，则Shiny将其名称打印四次，而所有其他按钮都不会做出反应。

使用lapply生成观察者的想法来自https://github.com/rstudio/shiny/issues/167#issuecomment-152598096

Answer 1

在你的例子中，一切都运行良好，只需按一次actionButton。例如，当我创建3按钮/观察者时，我在控制台中打印出正确的ID - 每个新生成的actionButton都有一个观察者。 √

[1] "add_1"
[1] "add_2"
[1] "add_3"

但是，当我选择3以外的数字然后再次按submit时，您所描述的问题就会开始。

说，我现在想要4 actionButtons - 我输入4并按submit。之后，我按下每个新生成的按钮，然后得到以下输出：

[1] "add_1"
[1] "add_1"
[1] "add_2"
[1] "add_2"
[1] "add_3"
[1] "add_3"
[1] "add_4"

通过点击submit按钮，我再次创建了三个第一个按钮的观察者 - 我有两个观察者用于前三个按钮，只有一个用于新的第四个按钮。

我们可以继续玩这个游戏，并为每个按钮获得越来越多的观察者。当我们创建比以前更少数量的按钮时，它非常相似。

解决方案是为了跟踪已定义的操作按钮，然后仅为新的操作按钮生成观察者。在下面的例子中，我描述了你如何做到这一点。它可能不是最好的程序，但它应该很好地展示这个想法。

完整示例：

library("shiny")

ui <- fluidPage(
  numericInput("numButtons", "Number of buttons to generate",
                min = 1, max = 100, value = NULL),  
  actionButton("go", "Submit"), 
  uiOutput("ui")
)

server <- function(input, output) {

  # Keep track of which observer has been already created
  vals <- reactiveValues(x = NULL, y = NULL)

  makeObservers <- eventReactive(input$go, {

    IDs <- seq_len(input$numButtons)

    # For the first time you press the actionButton, create 
    # observers and save the sequence of integers which gives
    # you unique identifiers of created observers
    if (is.null(vals$x)) { 
      res <- lapply(IDs, function (x) {
        observeEvent(input[[paste0("add_", x)]], {
          print(paste0("add_", x))
        })
      })
      vals$x <- 1
      vals$y <- IDs
    print("else1")

    # When you press the actionButton for the second time you want to only create
    # observers that are not defined yet
    #

    # If all new IDs are are the same as the previous IDs return NULLL
    } else if (all(IDs %in% vals$y)) {
        print("else2: No new IDs/observers")
        return(NULL)

    # Otherwise just create observers that are not yet defined and overwrite 
    # reactive values 
    } else {
        new_ind <- !(IDs %in% vals$y)
        print(paste0("else3: # of new observers = ", length(IDs[new_ind])))
        res <- lapply(IDs[new_ind], function (x) {
          observeEvent(input[[paste0("add_", x)]], {
            print(paste0("add_", x))
          })
        })
        # update reactive values
        vals$y <- IDs
    }
    res
  })


  observeEvent(input$go, {

    output$ui <- renderUI({

      num <- as.numeric(isolate(input$numButtons))

      rows <- lapply(1:num, function (x) {

        actionButton(inputId = paste0("add_", x),
                     label = paste0("add_", x))

      })

      do.call(fluidRow, rows)

    })
    makeObservers()
  })

}
shinyApp(ui, server)

生成动态输入数量的观察者

1 个答案: