ggplot с настроенным шрифтом некорректно отображается на shinyapps.io

Я могу настроить шрифт в ggplot с помощью:

library(extrafont)

windowsFonts()
font_import(pattern = "comic", prompt = FALSE)
loadfonts(device = "win")
windowsFonts()

ggplot(mapping=aes(x=seq(1,10,.1), y=seq(1,10,.1))) + 
  geom_line(position="jitter", color="red", size=2) + theme_bw() +
  theme(text=element_text(size=16,  family="Comic Sans MS"))

Это выглядит как:

Подробнее по теме, например здесь и здесь

Я также могу интегрировать этот график и дополнительный шрифт в блестящее приложение, которое работает локально следующим образом:

library(ggplot2)
library(extrafont)
library(shiny)

font_import(paths = "www", pattern = "comic", prompt = FALSE)
loadfonts()
print(fonts())

ui <- fluidPage(plotOutput("plot"),textOutput("fonts"))

server <- function(input, output) {
   output$plot <- renderPlot({
     ggplot(mapping=aes(x=seq(1,10,.1), y=seq(1,10,.1))) + 
       geom_line(position="jitter", color="red", size=2) + theme_bw() +
       theme(text=element_text(size=16,  family="Comic Sans MS"))
   })
   output$fonts <- renderText(print(fonts()))
}

shinyApp(ui = ui, server = server)

Однако, когда я пытаюсь развернуть это на shinyapps.io, я получаю сообщение об ошибке:

Не удалось запустить приложение (завершился с кодом 1).

Регистрация шрифтов с помощью R Сканирование файлов ttf на www ... Извлечение файлов .afm из файлов .ttf ... /srv/connect/apps/21-comic-font/www/comici.ttfWarnung в gzfile (dest, "w") kann komprimierte Datei '/opt/R/3.4.3/lib/R/library/extrafontdb/metrics/comici.afm.gz' nicht öffnen. Grund evtl. 'Permission denied' Fehler in value [3L]: kann Verbindung nicht öffnen Ruft auf: local ... tryCatch -> tryCatchList -> tryCatchOne -> Ausführung angehalten

Я попытался решить эту проблему, включив ответ здесь. Я добавил свои .ttf файлы в каталог www, а исходный код пакета extrafontdb в каталог r-lib. (И, конечно, я развернул и то, и другое ..).

Теперь полный файл app.R выглядит так:

.libPaths(c('r-lib', .libPaths()))
install.packages('r-lib/extrafontdb_1.0.tar.gz',type = 'source',repos = NULL)

library(ggplot2)
library(extrafontdb)
library(extrafont)
library(shiny)

font_import(paths = "www", pattern = "comic", prompt = FALSE)
loadfonts()
print(fonts())

ui <- fluidPage(plotOutput("plot"),textOutput("fonts"))

server <- function(input, output) {
  output$plot <- renderPlot({
    ggplot(mapping=aes(x=seq(1,10,.1), y=seq(1,10,.1))) +
      geom_line(position="jitter", color="red", size=2) + theme_bw() +
      theme(text=element_text(size=16,  family="Comic Sans MS"))
  })
  output$fonts <- renderText(print(fonts()))
}

shinyApp(ui = ui, server = server)

Когда я развертываю это, я получаю работающее приложение и следующий результат:

Странно то, что renderText(print(fonts())) печатает Comic Sans MS. Итак, кажется, что мой шрифт загрузился. Но на графике не отображается правильный шрифт.

Это почему? И как я могу это решить?

r ggplot2 shiny extrafont

symbolrush 11.03.2019 источник

Ответы (1)

arrow_upward
3
arrow_downward

Я нашел решение, которое, похоже, работает с shinyapps.io (но не локально, так как это решение только для Linux. И почему-то оно не работает с моим оригинальным шрифтом ComicSans MS, но этот шрифт все равно некрасивый .. ;-))

Вот так:

Поместите собственный шрифт в каталог www: например, IndieFlower.ttf из здесь
Следуйте инструкциям, приведенным здесь

Это приводит к следующему app.R файлу:

ibrary(ggplot2)
library(shiny)

dir.create('~/.fonts')
file.copy("www/IndieFlower.ttf", "~/.fonts")
system('fc-cache -f ~/.fonts')

ui <- fluidPage(plotOutput("plot"))

server <- function(input, output) {
  output$plot <- renderPlot({
    ggplot(mapping=aes(x=seq(1,10,.1), y=seq(1,10,.1))) +
      geom_line(position="jitter", color="red", size=2) + theme_bw() +
      theme(text=element_text(size = 16, family = "IndieFlower"))
  })
}

shinyApp(ui = ui, server = server)

Сюжет выглядит так:

symbolrush 14.03.2019

ggplot с настроенным шрифтом некорректно отображается на shinyapps.io

Ответы (1)

Вопросы по теме