我建议沿着使用dataTableProxy。这比每次单击按钮后重新呈现表要快：

library(shiny)
library(DT)
ui <- fluidPage(
  h5("Table 1"),
  DTOutput("table1"),
  h5("Table 2"),
  DTOutput("table2")
)
server <- function(input, output, session) {
  
  output$table1 <- renderDT({
    datatable(
      iris[iris$Species == "setosa", ],
      options = list(
        dom = '<"top" p>',
        pageLength = 6)
    )
  })
  output$table2 <- renderDT({
    datatable(
      iris[iris$Species == "virginica", ],
      options = list(
        dom = "tp",
        pageLength = 6)
    )
  })
  
  table1Proxy <- dataTableProxy("table1")
  table2Proxy <- dataTableProxy("table2")
  
  observeEvent(input$table1_rows_current, {
    selectPage(table2Proxy, page = ceiling(max(input$table1_rows_current) / input$table1_state$length))
  })
  
  observeEvent(input$table2_rows_current, {
    selectPage(table1Proxy, page = ceiling(max(input$table2_rows_current) / input$table2_state$length))
  })
}
shinyApp(ui = ui, server = server)

字符串

您可以使用input$table1_rows_current链接这两个表。然后使用displayStart选项根据另一个表中的显示更新另一个表中的显示。尝试以下操作

library(shiny)
library(DT)
ui <- fluidPage(
  h5("Table 1"),
  DTOutput("table1"),
  h5("Table 2"),
  DTOutput("table2")
)
server <- function(input, output, session) {
  rv <- reactiveValues(
    table1CurrentPage = 0,
    table2CurrentPage = 0
  )
  
  output$table1 <- renderDT({
    datatable(
      iris[iris$Species == "setosa", ],
      options = list(
        dom = '<"top" p>',
        displayStart = rv$table1CurrentPage,
        pageLength = 6)
    )
  })
  output$table2 <- renderDT({
    datatable(
      iris[iris$Species == "virginica", ],
      options = list(
        dom = "tp",
        displayStart = rv$table2CurrentPage,
        pageLength = 6)
    )
  })
  
  observeEvent(input$table2_rows_current, {
    rv$table1CurrentPage <- input$table2_rows_current[1] - 1
  })
  observeEvent(input$table1_rows_current, {
    rv$table2CurrentPage <- input$table1_rows_current[1] - 1
  })
}
shinyApp(ui = ui, server = server)

字符串