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

Question

我有一个 shiny 应用程序，其数据显示为 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 出口好吗？