数据表未呈现闪亮

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