無法在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)
              ))