Estou tentando definir a largura das colunas em um DataTable renderizado no Shiny e não consigo implementá-lo usando as opções aoColumnDefs. Alguém já tentou isso antes? Minha tabela possui 1 texto seguido por 3 colunas numéricas. As colunas numéricas precisam ser mais estreitas e a 1ª coluna (texto) mais larga.

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

Obrigado,

Raj.

** Atualização ** Isso parece estar funcionando, mas pode haver outras opções para fazer isso também.

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