shiny downloadHandler 下载文件名 中文乱码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家好，我最近看shiny的下载功能（http://shiny.rstudio.com/gallery/download-file.html），我发现如果将文件名改成中文，或者里面有中文字符，下载的文件名就是乱码，里面的内容没问题。

源代码：

1. library(shiny)
   
2. 
   
3. # Define UI for data download app ----
   
4. ui <- fluidPage(
   
5.   
   
6.   # App title ----
   
7.   titlePanel("Downloading Data"),
   
8.   
   
9.   # Sidebar layout with input and output definitions ----
   
10.   sidebarLayout(
    
11.    
    
12.     # Sidebar panel for inputs ----
    
13.     sidebarPanel(
    
14.       
    
15.       # Input: Choose dataset ----
    
16.       selectInput("dataset", "Choose a dataset:",
    
17.                   choices = c("rock", "pressure", "cars")),
    
18.       
    
19.       # Button
    
20.       downloadButton("downloadData", "Download")
    
21.       
    
22.     ),
    
23.    
    
24.     # Main panel for displaying outputs ----
    
25.     mainPanel(
    
26.       
    
27.       tableOutput("table")
    
28.       
    
29.     )
    
30.    
    
31.   )
    
32. )
    
33. 
    
34. # Define server logic to display and download selected file ----
    
35. server <- function(input, output) {
    
36.   
    
37.   # Reactive value for selected dataset ----
    
38.   datasetInput <- reactive({
    
39.     switch(input$dataset,
    
40.            "rock" = rock,
    
41.            "pressure" = pressure,
    
42.            "cars" = cars)
    
43.   })
    
44.   
    
45.   # Table of selected dataset ----
    
46.   output$table <- renderTable({
    
47.     datasetInput()
    
48.   })
    
49.   
    
50.   # Downloadable csv of selected dataset ----
    
51.   output$downloadData <- downloadHandler(
    
52.     filename = function() {
    
53.       paste(input$dataset, ".csv", sep = "")
    
54.     },
    
55.     content = function(file) {
    
56.       write.csv(datasetInput(), file, row.names = FALSE)
    
57.     }
    
58.   )
    
59.   
    
60. }
    
61. 
    
62. # Create Shiny app ----
    
63. shinyApp(ui, server)

复制代码

修改后的代码：

1. library(shiny)
   
2. 
   
3. # Define UI for data download app ----
   
4. ui <- fluidPage(
   
5.   
   
6.   # App title ----
   
7.   titlePanel("Downloading Data"),
   
8.   
   
9.   # Sidebar layout with input and output definitions ----
   
10.   sidebarLayout(
    
11.    
    
12.     # Sidebar panel for inputs ----
    
13.     sidebarPanel(
    
14.       
    
15.       # Input: Choose dataset ----
    
16.       selectInput("dataset", "Choose a dataset:",
    
17.                   choices = c("rock", "pressure", "cars")),
    
18.       
    
19.       # Button
    
20.       downloadButton("downloadData", "Download")
    
21.       
    
22.     ),
    
23.    
    
24.     # Main panel for displaying outputs ----
    
25.     mainPanel(
    
26.       
    
27.       tableOutput("table")
    
28.       
    
29.     )
    
30.    
    
31.   )
    
32. )
    
33. 
    
34. # Define server logic to display and download selected file ----
    
35. server <- function(input, output) {
    
36.   
    
37.   # Reactive value for selected dataset ----
    
38.   datasetInput <- reactive({
    
39.     switch(input$dataset,
    
40.            "rock" = rock,
    
41.            "pressure" = pressure,
    
42.            "cars" = cars)
    
43.   })
    
44.   
    
45.   # Table of selected dataset ----
    
46.   output$table <- renderTable({
    
47.     datasetInput()
    
48.   })
    
49.   
    
50.   # Downloadable csv of selected dataset ----
    
51.   output$downloadData <- downloadHandler(
    
52.     filename = function() {
    
53.       paste(input$dataset,"你好", ".csv", sep = "")
    
54.     },
    
55.     content = function(file) {
    
56.       write.csv(datasetInput(), file, row.names = FALSE)
    
57.     }
    
58.   )
    
59.   
    
60. }
    
61. 
    
62. # Create Shiny app ----
    
63. shinyApp(ui, server)

复制代码

下载后的文件名：
rock%FFFFFFE4%FFFFFFBD%FFFFFFA0%FFFFFFE5%FFFFFFA5%FFFFFFBD.csv

我怀疑是编码的问题，在代码中增加这行代码：

1. options(encoding = 'UTF-8')

复制代码

也是乱码的文件名，不知道有没有大神遇到过此类问题，能否给出解决方案。

十分感谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：download handle Shiny 中文乱码 下载文件 操作建议 shiny 中文乱码

https://github.com/rstudio/shiny/issues/1858

yijiaobani 发表于 2017-11-15 11:09
大家好，我最近看shiny的下载功能（http://shiny.rstudio.com/gallery/download-file.html），我发现如果将 ...

学习了学习了