无法在Shiny中的DT :: renderdatatable中显示页码

Question

我正在尝试使用Shiny呈现数据表，但是输出未显示页码。

我尝试将Paging，DOM选项更改为各种参数，但无法使其工作

DT::renderDataTable(expr = { 
    sales_data_filtered() %>%
        group_by(class) %>%
        summarise(sales = sum(sales))%>%
    mutate(sales = scales::dollar(sales)) 

}, options = list(scrollY = "250px",dom = 't',
    pageLength = 5) )

Answer 1

尝试重写一下。

1. 将结果存储在单独的反应式表达式中：

result <- sales_data_filtered() %>%
            group_by(class) %>%
            summarise(sales = sum(sales))%>%
            mutate(sales = scales::dollar(sales)) 

您为什么精确使用dom = 't'选项？这意味着将仅呈现表。如果不需要，请摆脱它。

DT::renderDataTable(result(),
              options = list(
                  scrollY = "250px",
                  pageLength = 5,
                  lengthMenu = c(5, 10, 15, 20)
              ))