Я пытаюсь создать datatable в блестящем. Это решение работает ранее, но я должен быть изменен кое-что для него не больше:Datatable not render in shiny
output$ltl_tbl <- renderDataTable({
input$refresh
ltl_view <- car()
colnames(ltl_view) <- c('Carrier', 'Volume', 'CWT', 'On Time')
DT::datatable(ltl_view,
options = list(lengthMenu = c(10, 25, 50),
pageLength = 10,
orderClasses = TRUE,
fillContainer = TRUE,
searching = FALSE),
rownames = FALSE
) %>%
formatCurrency(3, '$') %>% formatPercentage(4, 0) %>% formatCurrency(2, '', digits= 0)
})
Я просто вызов dataframe от реактивной функции, изменение имен столбцов, то создание DataTable с некоторыми вариантами, но это не работает, и я не могу понять, почему.
Когда я удаляю формат столбца (formatCurrency & formatPercentage), а также удаляю строки над фактическим datatable (например, меняя названия столбцов и назначение данных), он будет отображать данные в моем shinyapp.