shinyapps中的wordcloud编码

Question

我使用wordcloud软件包解冻了我的闪亮代码。

我的本​​地电脑可以完美显示，但shinyapps显示的代码不是字符。

我的本​​地窗口没有UTF-8，其他本地的Ubuntu和UTF-8都可以显示好。

我该如何解决？

示例代码 server.R

library(wordcloud)

function(input, output, session) {


  d1 <- c("강릉교동짬뽕","강릉선교장","강릉오죽헌","강문해변","경포대")
  d2 <- c(35,126,192,322,452)
  d3 <- data.frame(poi_name=d1, n=d2)
  spider_cloud <- d3

  output$spider_cloud <- renderPlot({
    wordcloud_tmp <- spider_cloud
    wordcloud(wordcloud_tmp$poi_name, freq=wordcloud_tmp$n,
              scale=c(5,1), rot.per=0,
              min.freq = 1, max.words=100,
              random.order=F, colors=brewer.pal(8, "Dark2"))

  })
}

ui.R

plotOutput("spider_cloud")

captured in shinyapps