@Dearc</a>：
本来已经放弃了，最后看到谢大大在shiny官网
#408656#408666#2 上面的代码,建立一个以下代码的global.R脚本，直接往shinyapps服务器上添加中文字体，够粗暴。亲测图形上的中文也能显示。高兴 :D
font_home <- function(path = '') file.path('~', '.fonts', path)
if (Sys.info()[['sysname']] == 'Linux' &&
system('locate wqy-zenhei.ttc') != 0 &&
!file.exists(font_home('wqy-zenhei.ttc'))) {
if (!file.exists('wqy-zenhei.ttc'))
shiny:::download(
'https://github.com/rstudio/shiny-examples/releases/download/v0.10.1/wqy-zenhei.ttc',
'wqy-zenhei.ttc'
)
dir.create(font_home())
file.copy('wqy-zenhei.ttc', font_home())
system2('fc-cache', paste('-f', font_home()))
}
rm(font_home)
