將shinyapp部署到shinyapps.io時德語字符顯示不正確

Question

我有一個Shiny應用，它在我的Windows10本地工作正常，但部署到shinyapps.io時，數據中的Ä，ü等德語字符顯示不正確。

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") 
) 

的數據R內部保存爲CSV從

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

我找到了解決辦法，這對我的作品:)

編碼CSV文件"UTF-8"使用file：

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)