Кнопки загрузки CSV / Excel не отображаются, когда я отображаю таблицы данных на блестящей приборной панели. Может кто-нибудь сказать мне, что с ним не так?
Вот мой код
Server.R
shinyServer(function(input, output, session) {
widget = datatable(DT, filter = list(position = "top"), options = list(pageLength = 10, scrollX = TRUE),
rownames = FALSE, style = "bootstrap",
extensions = 'Buttons'
, options = list(
dom = "Bfrtip"
, buttons =
list("copy", list(
extend = "collection"
, buttons = c("csv", "excel", "pdf")
, text = "Download" ) %>% formatCurrency(4:33, "", interval = 3, mark = ",", digits = 0)
output$table<- renderDataTable(widget)