数据表未呈现闪亮
Datatable not rendering 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)
})
我只是从反应函数调用数据框,更改列名,然后使用一些选项创建数据表,但这不起作用,我无法弄清楚原因。
当我删除列格式(格式货币和格式百分比)并删除实际数据表上方的行(例如,更改列名和数据帧分配)时,它将在我的 shinyapp 中呈现数据表。
想通了。我一定是添加了另一个使调用不明确的包。通过在用户界面和服务器端添加以下内容,它起作用了。
DT::renderDataTable
DT::dataTableOutput
我正在尝试创建闪亮的数据表。此解决方案以前一直有效,但我必须对其进行一些更改以使其不再有效:
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)
})
我只是从反应函数调用数据框,更改列名,然后使用一些选项创建数据表,但这不起作用,我无法弄清楚原因。
当我删除列格式(格式货币和格式百分比)并删除实际数据表上方的行(例如,更改列名和数据帧分配)时,它将在我的 shinyapp 中呈现数据表。
想通了。我一定是添加了另一个使调用不明确的包。通过在用户界面和服务器端添加以下内容,它起作用了。
DT::renderDataTable
DT::dataTableOutput