r Shiny：选择一行以开始显示数据表

Question

下面有一个闪亮的应用程序，该应用使用DataTable使用dt。而不是让表从第1行开始显示，我想将表渲染使用用户选择的特定顶行（在此示例中使用Input $ startrow）。

例如，如果用户在滑块中选择50，则表中显示的第一行是第50行，而不是第1行。

获得动态起始行的任何提示。

为了清楚地编辑：我不想将表子集划分，我想显示要在input $ startrow中开始，但是用户可以上下滚动并仍然查看整个数据集（例如，> 忠实的在此示例中）。

编辑2：似乎问题是displayStart选项是我想要的，但是有一个已知错误截至5月21日，scroller启动显示中间表。

library(shiny)
library(DT)
data("faithful")

ui <- fluidPage(
  h2("Select the first row of the table to show"),
  sliderInput(inputId="startRow",
              label="Choose a row to start the datatable display",
              min = 1,
              max = 200,
              value = 100,
              step=5),
  # show a datatable
  h2("Show a table"),
  dataTableOutput("table1")
)

server <- function(input, output) {
  output$table1 <- renderDataTable({
    # use input$startRow to begin the table display?
    datatable(faithful,
              extensions = "Scroller", 
              options = list(scrollY = 300,
                             scroller = TRUE))
  })

}

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

成功。跟随 link> link> link 评论。我能够使用initcomplete从input $ startrow在行上启动表。这似乎有效。

library(shiny)
library(DT)
data("faithful")

ui <- fluidPage(
  h2("Select the first row of the table to show"),
  sliderInput(inputId="startRow",
              label="Choose a row to start the datatable display",
              min = 1,
              max = 200,
              value = 10,
              step=5),
  # show a datatable
  h2("Show a table"),
  dataTableOutput("table1")
)

server <- function(input, output) {
  output$table1 <- renderDataTable({
    datatable(faithful,
              extensions = "Scroller",
              options = list(scrollY = 300,
                             scroller = TRUE,
                             initComplete  = JS('function() {this.api().table().scroller.toPosition(',
                                                input$startRow-1,');}')))})

}

shinyApp(ui = ui, server = server)

Answer 2

是的，使用输入$ startrow开始表显示以生成所选表。

library(shiny)
library(DT)
data("faithful")

ui <- fluidPage(
  h2("Select the first row of the table to show"),
  sliderInput(inputId="startRow",
              label="Choose a row to start the datatable display",
              min = 1,
              max = 200,
              value = 100,
              step=5),
  # show a datatable
  h2("Show a table"),
  dataTableOutput("table1")
)

server <- function(input, output) {
  
  topDF <- reactive({
    # use input$startRow to begin the table display
    topRow <- input$startRow
    
    selectedDf <- faithful[-(1:(topRow-1)), ]
    
    return(selectedDf)
  })
  
  output$table1 <- renderDataTable({

    datatable(topDF(),
              extensions = "Scroller", 
              options = list(scrollY = 300,
                             scroller = TRUE))
  })
  
}

# Run the application 
shinyApp(ui = ui, server = server)