shinyapps.ioにshinyappを配備すると、ドイツ語の文字が正しく表示されない

Question

shinyapps.ioに配備すると、Windowsのローカルで正常に動作するShinyアプリケーションがあります。データのÄ、üなどのドイツ語の文字は正しく表示されません。

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

私は私のために機能するソリューション、:)

がfileを使用して"UTF-8"としてCSVファイルエンコードが見つかりました：指定されたエンコーディング"UTF-8"で

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代わりのglobal.Rでread.csv2を：

data <- read.csv("data.csv", encoding = "UTF-8", stringsAsFactors = FALSE)