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 出口好嗎？