1

在开始之前，我已经尝试过咨询这个问题、这个问题和dataTableProxy().

我目前正在尝试拥有一个基本的 RShiny 应用程序，该应用程序在加载时会自动导航到给定页面并选择给定行（稍后我计划让应用程序根据 GET 查询字符串执行此操作，但目前正在使用这个基本版本作为起点）。有问题的表有 32 行和 4 页。与我咨询的问题形成对比的是，它们是通过事件触发器来实现的，而我想在文档加载时这样做。

selectRows()使用和选择行和页非常简单selectPage()。selectRows()提供预期的结果；但是，selectPage()似乎对我不起作用，在浏览器控制台中抛出“页面索引超出范围” 。在我的示例代码中，我选择第 25 行并导航到页面索引 2。即使尝试选择页面索引 0 也会引发“超出范围”错误。

我在下面提供了我的应用程序代码。我想知道我是否试图在表格分页之前导航到页面？

非常感谢任何输入。

编辑：我有一种方法可以选择行并转到页面，如下所示。但是，即使我转到页面索引 2，页面索引 0 的内容仍然存在。所以我必须点击不同的页面，然后回到页面索引 2 才能看到我选择的行。

~ 卡伦

library(DT)
library(shiny)
library(shinyjs)

ui <- fluidPage(
    tags$head(tags$script(src="datatables.min.js")),
    fluidRow(
        DT::dataTableOutput("mtcar_table")
    )
)

server <- function(input, output, session){
    which_page <<- 0
    which_row <<- 0
    observe({
        which_row <<- 25
        which_page <<- floor(which_row/10)
        output$mtcar_table = DT::renderDataTable({
            # I know here I can normalize
            # by the table state's rows per page attribute
            # but want to just get this base exmaple
            # to work first
            return(
                mtcars
            )
        },
            options = list(
                initComplete = JS(
                    "function(settings, json){",
                    "$(this.api().table().page(2).draw('page'));",
                    "console.log(this); return this;}"
                )
            )
        )
        # making sure I'm still recording the row
        # and page number
        print(which_row)
        print(which_page)
        # manipulating the table here to navigate
        # to the right page and row.
        # I constantly get "page index out of range"
        # even if I put down page {0, 1}. I'm wondering
        # if I'm trying to navigate to the page before
        # the pagination actually takes place?
        dataTableProxy("mtcar_table") %>%
            selectRows(which_row)
    })
}

shinyApp(ui, server)
4

1 回答 1

1

加载后，您可以像这样使用和options传递selection参数：...renderDataTable

library(DT)
library(shiny)

ui <- fluidPage(
    tags$head(tags$script(src="datatables.min.js")),
    fluidRow(
        DT::dataTableOutput("mtcar_table")
    )
)

server <- function(input, output, session){
        
        output$mtcar_table <-  renderDataTable({
                mtcars
        },
        options = list(displayStart = 20),  
        selection = list(mode = 'multiple', selected = c(25), target = 'row') )
}

shinyApp(ui, server)
于 2021-06-27T02:54:06.790 回答