Question

我正在尝试创建一个闪亮的数据表。这个解决方案以前一直在工作，但我必须改变它的一些东西：

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＆amp; formatPercentage）并删除实际数据表上方的行（例如，更改列名和数据帧赋值）时，它将在我的shinyapp中呈现数据表。

Answer 1

想出来。我必须添加另一个使调用不明确的包。通过在用户界面和服务器端添加以下内容，它可以正常工作。

DT::renderDataTable

DT::dataTableOutput

数据表无法呈现闪亮

1 个答案: