使用actionButton()移动到DT::datatable中选定项的下一行

library(shiny)
library(DT)

ui <- fluidPage(
  dataTableOutput("mytable")
)

server <- function(input, output) {
  # 生成示例数据
  data <- data.frame(
    Name = c("John", "Jane", "Mike"),
    Age = c(25, 30, 35),
    Gender = c("Male", "Female", "Male")
  )
  
  output$mytable <- renderDataTable({
    # 为数据表格添加一个列，放置动作按钮
    data$Action <- actionButton(inputId = "next_row", label = "Next Row")
    
    DT::datatable(
      data,
      selection = 'single',
      rownames = FALSE,
      options = list(
        columnDefs = list(list(className = 'dt-center', targets = 4))
      )
    )
  })
}

server <- function(input, output) {
  # ...
  
  observeEvent(input$next_row, {
    # 获取选中行的索引
    selected_row <- input$mytable_rows_selected
    
    if (!is.null(selected_row)) {
      # 将选中行的下一行滚动到视图中
      scrollTo <- min(selected_row) + 1
      if (scrollTo <= nrow(data)) {
        scrollTo(n = scrollTo, anim = TRUE)
      }
    }
  })
  
  # ...
}