Невозможно отобразить номера страниц в DT :: renderdatatable в Shiny

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)
              ))