Question

要编辑一对多的数据结构，

我想创建一个数据表（DTOutput），在其中观察单元格单击observeEvent(input$groupingsOut_cell_clicked, {...})。
然后在每次单击单元格时，我想在UI上生成输入字段。
最后，我想听听那些渲染/生成的UI上的变化。

我不能直接在DTOutput中编辑这些单元格，因为它不支持单元格内的向量。（因此，一对多关系）。

我已经管理了步骤1和2。我可以使用相应的单元格渲染DTOutput。我可以观察单元格的点击，并在单元格点击时插入UI（insertUI()）。我创建了observeEvent对象来观察那些渲染的字段。但是，这些观察事件永远不会在编辑新生成的字段时触发。

ui = fluidPage(title = titlePanel("Title"), 
               tags$head(tags$style(HTML("hr {border-top: 1px solid #000000;}"))),
               sidebarLayout(
                sidebarPanel(),
                mainPanel(tabsetPanel(type = "tabs",
                                      tabPanel("Groupings", DTOutput(outputId = "groupingsOut"), 
                                             tags$div(id = 'placeholder')),
                                      tabPanel("Test", textOutput(outputId = "statusOut")),
                                      tabPanel("Plot Generator", plotOutput(outputId = "distPlotOut")))
                )
               )

)
server = function(input, output) {
    # Label reactive values
    labelRVs = list()

    #Example table
    groupings = data.frame(names = c("cars", "mbikes", "bikes"), 
                           labels = c("Cars", "Motor Bikes", "Bikes"),
                           groups = I(list(c("toyota", "vw", "tesla"), c("harley", "kawasaki"), c("somth", "anoth", "bla"))),
                           groupLabels = I(list(c("Toyota", "VW", "Tesla"), c("Harley Davidson", "Kawasaki"), c("Something", "Another Thing", "Bla bla"))))

    #groupings = data.frame()

    proxy = dataTableProxy('groupingsOut')


    observeEvent(input$groupingsOut_cell_clicked, {
        info = input$groupingsOut_cell_clicked
        if(!is.null(info$row)){
            grouping = groupings[[info$row, 1]]
            groupingLabel = groupings[[info$row, 2]]
            groups = groupings[[info$row, 3]]
            groupLabels = groupings[[info$row, 4]]

            # remove previously generated UI
            removeUI(selector = paste0('#placeholder input'), multiple = TRUE)
            removeUI(selector = paste0('#placeholder label'), multiple = TRUE)

            # Generating ID for grouping labels
            id = paste0("groupLabel_", i)

            # Inserting text input for grouping label
            insertUI(selector = '#placeholder', ui = textInput(id, label = "Grouping label:", value = groupingLabel))
            labelRVs[[id]] <<- observeEvent(id, {
                cat(paste(id, i, "\n")) # THIS LINE ONLY RUNS AT INITIALIZATION :(
                })

            lapply(1:length(groups), function(i){
                index = sprintf("%03d", i)
                id = paste0('label_', index)
                insertUI(selector = '#placeholder', 
                         ui = textInput(id, label = paste0("Group label for ", groups[i], ":"), value = groupLabels[i]))
                labelRVs[[id]] <<- observeEvent(id, {
                    cat(paste(id, i, "\n")) # ALSO THIS LINE ONLY RUNS AT INITIALIZATION :(
                })
            })
        }
    })

    output$groupingsOut = renderDT(groupings[, c(1, 3)], rownames = FALSE, editable = TRUE, selection = 'single')

}
shinyApp(ui = ui, server = server)

但是，此示例Shiny - Can dynamically generated buttons act as trigger for an event运行得很好。在示例中，使用 renderUI到outputUI 代替了将UI插入标签。我在上面修改了我的代码以使用renderUI，该操作也失败了。在这一点上，我怀疑DTOutput的行为是否与其他输入字段不同。

注意使用<<-运算符来分配labelRV，以使watchEvent对象保持活动状态。确实是必要的，如示例所示。

我想知道是否有任何方法可以观察到这样的领域？

如何观察从数据表单元格单击动态生成的UI？

0 个答案: