R Shiny Dashboard Ширина столбца DataTable [дубликаты]

Question

R Shiny Dashboard Ширина столбца DataTable [дубликаты]

1

Я строю панель Shiny, и одна панель на ней - это DataTable.

Ниже мой код:

  output$table = DT::renderDataTable(b1, selection = 'single')

Ширина столбцов в таблице данных теперь корректируется по ширине имени столбца. Однако некоторые значения ячеек являются текстовыми, и этот текст сжимается для отображения в несколько строк, поскольку они длиннее имен столбцов.

Мне интересно, есть ли способ настроить ширину столбца, чтобы соответствовать значениям ячейки в одной строке.

Или есть способ установить фиксированную ширину столбцов и получить полное содержимое значения ячейки при наведении курсора?

Заранее спасибо.

MMAASS 14 март 2019, в 16:31

Источник

0

Спасибо, я проверил это и использовал columnDefs в аргументе Option, представленном в ответе в этом посте. Однако это не сработало для меня.
MMAASS 14 март 2019, в 15:23
0

Затем вам нужно показать минимальный воспроизводимый пример вашей проблемы, который показывает, как ответы из дубликата не работают. Если вы это сделаете, это позволит нам диагностировать, что отличается от вашей проблемы от вопроса в дубликате. Без этого, однако, ответить на ваш вопрос дальше невозможно.
divibisan 14 март 2019, в 17:38

Теги:

javascript

r

shiny

shinydashboard

dt

1 ответ

Ещё вопросы

Спасибо, я проверил это и использовал columnDefs в аргументе Option, представленном в ответе в этом посте. Однако это не сработало для меня.
Затем вам нужно показать минимальный воспроизводимый пример вашей проблемы, который показывает, как ответы из дубликата не работают. Если вы это сделаете, это позволит нам диагностировать, что отличается от вашей проблемы от вопроса в дубликате. Без этого, однако, ответить на ваш вопрос дальше невозможно.

Stéphane Laurent · Accepted Answer · 2019-03-14T12-57-00.000Z

Вы можете использовать плагин с ellipsis чтобы ограничить количество видимых символов ячеек и иметь полное содержание ячеек во всплывающей подсказке.

library(DT) 

dat <- data.frame(
  A = c("fnufnufroufrcnoonfrncacfnouafc", "fanunfrpn frnpncfrurnucfrnupfenc"),
  B = c("DZDOPCDNAL DKODKPODPOKKPODZKPO", "AZERTYUIOPQSDFGHJKLMWXCVBN")
)

datatable(
  dat, 
  plugins = "ellipsis",
  options = list(
    # limit cells in columns 1 and 2 to 17 characters
    columnDefs = list(list(
      targets = c(1,2),
      render = JS("$.fn.dataTable.render.ellipsis( 17, false )")
    ))
  )
)