R Shiny DT 数据表更改按钮导出编码

Question

我有一个闪亮的应用程序，其中包含使用 DT 显示的数据。我可以使用按钮扩展导出这些数据。但是当我导出数据时，重音字符没有正确显示。

如何更改导出编码以正确书写重音符号？

原始数据为

Nom,"Prenom"
Dupond,"Étienne"
Dupont,"François"
Martin,"Frédéric"

这是我使用 CSV 或 Excel 按钮时得到的结果：

Nom,"Prenom"
Dupond,"Ã‰tienne"
Dupont,"FranÃ§ois"
Martin,"FrÃ©dÃ©ric"

这是一个代码示例

library(shiny)
library(DT)

ui <- fluidPage(
  DT::DTOutput("table_utilisateurs")
)
server <- function(input, output, session) {
  
  output$table_utilisateurs <- DT::renderDT(server = FALSE, {

    DT::datatable(
      data.frame(Nom = c('Dupond', 'Dupont', 'Martin'),
                 Prenom = c('Étienne', 'François', 'Frédéric')),
      extensions = "Buttons",
      filter = 'top',
      rownames = FALSE,
      options = list(
        pageLength = 10,
        lengthMenu = c(10,20,50,100),
        order = list(list(0,'asc')),
        autoWidth = TRUE,
        dom = 'lftipB',
        buttons = c('copy', 'csv', 'excel')
      )
    )
  })
}
shinyApp(ui, server)

Answer 1

试试这个：

buttons = list(
  "copy",
  "excel",
  list(
    extend = "csv",
    charset = "utf-8",
    bom = TRUE
  )
)

现在，CSV导出可以了吗？

R Shiny DT 数据表更改按钮导出编码

R Shiny DT datatable change buttons export encoding

r

shiny

datatable

dt