Исправить ширину DT в блестящем

Я пытаюсь исправить ширину очень широкой таблицы в shiny, но не могу этого сделать. Я пытаюсь ответить здесь, Shrink DT::dataTableOutput Size, но это не сработало, я также пробовал ответ отсюда https://github.com/rstudio/DT/issues/29 с процентами и пикселями для всех столбцов, и это тоже не сработало. Это пример таблицы и проблемы, которая у меня есть:

shinyApp(
    ui = fluidPage(
      DT::dataTableOutput("table")
    ),
    server <- function(input, output) {
      x <- cbind(iris,iris,iris,iris)
      output$table <- DT::renderDataTable(x)
    }
  )

r shiny dt
person Alejandro Andrade    schedule 23.01.2018    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Я думаю, что это делает то, что вы хотите:

library(shiny)
shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("table",width='500px')
  ),
  server <- function(input, output) {
    x <- cbind(iris,iris,iris,iris)
    output$table <- DT::renderDataTable(x,options=list(scrollX=T))
  }
)
person Florian    schedule 23.01.2018
comment
почти но нет, потому что я не хочу прокручивать я хочу визуализировать все данные сразу, не важно, что шрифт мелкий. Я знаю, что это возможно с div(table, style = "font-size:50%"), но это не работает в моей реальной таблице, потому что у меня есть изображение в таблице, поэтому шрифт становится маленьким, а таблицы - нет. Мне нужно что-то, что просто сжимает таблицу. - person Alejandro Andrade; 23.01.2018