R-Shiny-DT: 编辑父子表格并相互更新

下面是一个使用R Shiny和DT包的示例代码，演示了如何创建一个父表和一个子表，并在父表中选择行时更新子表。

library(shiny)
library(DT)

ui <- fluidPage(
  DT::dataTableOutput("parentTable"),
  DT::dataTableOutput("childTable")
)

server <- function(input, output, session) {
  
  # 创建父表
  output$parentTable <- DT::renderDataTable({
    DT::datatable(iris, selection = 'single',
                  options = list(pageLength = 10, dom='t'))
  })
  
  # 创建子表
  output$childTable <- DT::renderDataTable({
    selectedRow <- input$parentTable_rows_selected
    if (length(selectedRow) > 0) {
      irisSubset <- iris[selectedRow, ]
      DT::datatable(irisSubset, options = list(pageLength = 5, dom='t'))
    }
  })
}

shinyApp(ui, server)

在这个例子中，我们创建了一个父表iris，并在Shiny应用程序中显示它。我们还创建了一个空的子表，当在父表中选择行时，子表会根据所选行的子集进行更新。

父表使用renderDataTable函数来渲染，并设置selection = 'single'来允许只选择一行。子表也使用renderDataTable函数来渲染，并使用input$parentTable_rows_selected来获取选择的行号。然后，我们使用这些行号来从父表中获取所选行的子集，并将其作为子表的数据显示出来。

运行这个应用程序，你将看到一个父表和一个空的子表。当你在父表中选择一行时，子表将会更新为所选行的子集。

希望这个示例能帮助到你！