【发布时间】:2017-06-04 08:59:24
【问题描述】:
我正在尝试创建一个闪亮的数据表。该解决方案以前一直有效,但我必须对其进行更改以使其不再有效:
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)
})
我只是从反应函数调用数据框,更改列名,然后使用一些选项创建数据表,但这不起作用,我不知道为什么。
当我删除列格式(formatCurrency 和 formatPercentage)并删除实际数据表上方的行(例如,更改列名和数据框分配)时,它将在我的 shinyapp 中呈现数据表。
【问题讨论】: