将shinyapp部署到shinyapps.io时，德语字符未正确显示

Question

我有一个Shiny应用程序在我的Windows10上本地工作正常，但是当部署到shinyapps.io时，德国字符如Ä，ü在数据中没有正确显示。

数据从R：

中保存为csv

test <- data.frame(a = "Für", b = 1)
write.csv2(test, file = "data.csv", row.names = FALSE)

这是一个简单的示例应用程序：

global.R

library(shiny)
data <- read.csv2("data.csv", stringsAsFactors = FALSE)

ui.R

ui <- fluidPage(
  textOutput("text")
)

server.R

server <- function(input, output, session) {
  output$text <- renderText(data$a)
}

我也尝试了read.csv2(..., encoding = "utf8")，它没有改变任何东西。 ui.R，server.R和global.R都保存为utf8。

有人知道这方面的解决方案吗？

感谢。

Answer 1

我找到了一个适用于我的解决方案：）

使用file：

将csv文件编码为test <- data.frame(a = "Für", b = 1) f <- file('data.csv', encoding = "UTF-8") write.csv(test, file = f, row.names = FALSE)

read.csv

使用指定编码read.csv2的global.R中的"UTF-8"代替data <- read.csv("data.csv", encoding = "UTF-8", stringsAsFactors = FALSE) ：

indirect enum