Я пытаюсь установить ширину столбцов в таблице данных, отображаемой в Shiny, и не могу реализовать ее с помощью параметров aoColumnDefs. Кто-нибудь пробовал это раньше? В моей таблице 1 текст, за которым следуют 3 числовых столбца. Числовые столбцы должны быть уже, а первый столбец (текст) шире.
output$result <- renderDataTable({
z <- as(dataInput(), "data.frame")
setnames(z, c("Rules", "Support", "Confidence", "StatDep"))
z
}, options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5, bSortClasses = TRUE,
aoColumnDefs = list(sWidth = "50px", aTargets = list(1))))
Спасибо,
- Радж.
** Обновление ** Кажется, это работает, но могут быть и другие способы сделать это.
output$result <- renderDataTable({
z <- as(dataInput(), "data.frame")
setnames(z, c("Rules", "Support", "Confidence", "StatDep"))
z
}, options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5, bSortClasses = TRUE,
bAutoWidth = FALSE,
aoColumn = list(list(sWidth = "150px", sWidth = "30px",
sWidth = "30px", sWidth = "30px"))
))