Фильтры столбцов не видны при использовании Datatable Shiny - PullRequest
0 голосов
/ 05 марта 2019

Я создал таблицу данных из пакета DT, которая содержит более 50 строк.Фильтрующие коробки сверху, по этой причине, не очень большие.Их кажется много неиспользованного пустого пространства в коробках фильтра.Можно ли как-то уменьшить это, чтобы я мог видеть хотя бы часть своих фильтров?Я буду использовать набор данных радужной оболочки, чтобы показать вам, что я хотел бы видеть в сравнении с тем, что у меня есть.

ui.R
...
 fluidRow(
            column(
                    width = 12,
                    box(width = NULL, status = "info", solidHeader = T, title = "Earnings Scanner",

                     DTOutput("tab"),style = "height:700px; overflow-y: scroll;overflow-x: scroll;font-size:70%;"
                    )
                  )
                )



server.R
...
output$tab = renderDT(
      datatable(
      frame.ea, filter = 'top', options = list(
        pageLength = 10, autoWidth = TRUE), class = 'cell-border stripe', rownames = F)
    ) 

enter image description here

Использование данных радужной оболочкиустановить вы можете увидеть, что я пытаюсь достичь enter image description here

1 Ответ

0 голосов
/ 05 марта 2019

Кажется, проблема с шириной вашего стола.(Пожалуйста, в следующий раз предоставьте воспроизводимый пример)

Так что я буду играть со значением width в style fomr DTOutput:

ui.R ...  fluidRow(
            column(
                    width = 12,
                    box(width = NULL, status = "info", solidHeader = T, title = "Earnings Scanner",

                     DTOutput("tab"),style = "height:700px; width:700px; overflow-y: scroll;overflow-x: scroll;font-size:70%;"
                    )
                  )
                )



server.R ... output$tab = renderDT(
      datatable(
      frame.ea, filter = 'top', options = list(
        pageLength = 10, autoWidth = TRUE), class = 'cell-border stripe', rownames = F)
    )
...