在公司搭建了一个应用，先是上传一个table(csv,xlsx等)，中文、英文都有，在shinyapp一顿操作（比如修改字段）之后，download保存xxx.csv；第二天继续干活，再上传，发现有中文乱码，没法继续干活了。
1.上传数据代码
dataSelect <- reactive({
req(input$target_upload)
inFile <- input$target_upload
if (is.null(inFile))
return(NULL)
if (input$fileType_Input == 1) {
df = fread(inFile$datapath)
} else {
library(readxl)
df = read_excel(inFile$datapath)
df<-as.data.table(df)
}
return(df)
})
2.下载数据代码
output$downloadData <- downloadHandler(
filename = function() {
paste("data",Sys.Date(), ".csv", sep = "")
},
content = function(file) {
write.table(dfCellAll,file,sep = ',',fileEncoding = 'GBK',row.names = FALSE)
}
)
有没有将中英文两种字符通吃的办法。
