将我所在的数据表的哪一页保存到 R Shiny 中的变量中答案

【问题标题】：Save what page of a data table I am on into a variable in R shiny将我所在的数据表的哪一页保存到 R Shiny 中的变量中
【发布时间】：2021-09-27 10:07:49
【问题描述】：

假设我有一个包含数据表的闪亮应用。

library(shiny)
library(tidyverse)
library(datasets)
library(DT)

data <- as.data.frame(USArrests)
#data<- cbind(state = rownames(data), data)
ui <- fluidPage(
    dataTableOutput("preview")
)

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$preview<- renderDataTable(
        datatable(data, options = list(searching = T, pageLength = 10, lengthMenu = c(5,10,15, 20), scrollY = "600px", scrollX = T ))
    )
    
}

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

我希望能够将用户所在的表的哪一页保存在名为 x 的变量中。有什么办法可以做到这一点吗？非常感谢任何帮助！

【问题讨论】：

这个问题可能对你想要的有所帮助：stackoverflow.com/q/53370892/8366499
这也可能有用：laustep.github.io/stlahblog/posts/…
这可能是相关的：datatables.net/reference/api/page.info()
我在标准数据表中使用了stateSave - 它运行良好（使用浏览器的本地存储）。之前没有在闪亮的应用程序中使用它，因此这个评论而不是答案。这不仅可以保存状态，还可以在您下次访问该页面时恢复它（我意识到这可能比您实际想要/需要的更多，在这里）。

标签： r shiny dt

【解决方案1】：

library(shiny)
library(DT)

data <- USArrests

callback <- c(
  "Shiny.setInputValue('pageNumber', 1);",
  "table.on('init.dt', function(){",
  "  var pageInfo = table.page.info();",
  "  Shiny.setInputValue('numberOfPages', pageInfo.pages);",
  "});",
  "table.on('page.dt', function(){",
  "  var pageInfo = table.page.info();",
  "  Shiny.setInputValue('pageNumber', pageInfo.page + 1);",
  "  Shiny.setInputValue('numberOfPages', pageInfo.pages);",
  "});",
  "table.on('length.dt', function(){",
  "  var pageInfo = table.page.info();",
  "  Shiny.setInputValue('pageNumber', pageInfo.page + 1);",
  "  Shiny.setInputValue('numberOfPages', pageInfo.pages);",
  "});"
  
)


ui <- fluidPage(
  br(),
  wellPanel(
    textOutput("displayPageNumber")
  ),
  br(),
  DTOutput("preview")
)

server <- function(input, output, session){
  
  output[["preview"]] <- renderDT(
    datatable(
      data, 
      callback = JS(callback),
      options = list(
        searching = TRUE, 
        pageLength = 5, 
        lengthMenu = c(5, 10, 15, 20), 
        #scrollY = "600px", 
        scrollX = TRUE)
    )
  )
  
  output[["displayPageNumber"]] <- renderText({
    paste(
      sprintf("You are currenly viewing page %s.", input[["pageNumber"]]),
      sprintf("There are %s pages in the table.", input[["numberOfPages"]])
    )
  })
  
}

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

【讨论】：