Откуда появляются иконки ggimage::geom_icon

Question

Я пытаюсь вставить хоккейные шайбы в свой ggplot, На шрифт потрясающий, я нашел значок хоккейной шайбы. Я надеялся что ggimage::geom_icon может импортировать шрифт потрясающие иконки, но, к сожалению, это не так:

library(ggimage)

set.seed(2017-02-21)
d <- data.frame(x = rnorm(10),
                y = rnorm(10),
                icon = "hockey-puck")
ggplot(d, aes(x,y)) + geom_icon(aes(image=icon))

Error in download_url(path) : 
  Failed to download https://raw.githubusercontent.com/ionic-team/ionicons/master/src/svg/hockey-puck.svg (HTTP 404)

Кто-нибудь знает где найти иконки. Я знаю, что есть эта онлайн виньетка, но там не указано, где ios-power', 'ios-wifi', 'ios-pie' родом из.

Answer 1

в ggimage::list.iconиспользует вспомогательную функцию, которая ищет png-файлы. Это действительно бесполезно, так как значки представляют собой файлы svg. Ниже модифицированная версия для будущих пользователей.

      list_images <- function (url, filetype = "svg") 
{
  x <- readLines(url)
  y <- x[grep(paste0("title=\"[a-zA-Z0-9\\-]+\\.", filetype), x)]
  sub(paste0(".*title=\"([a-zA-Z0-9\\-]+)\\.",filetype, ".*"), "\\1", y)
}

list_icon <- function(){
  list_images("https://github.com/ionic-team/ionicons/tree/master/src/svg")
}

head(list_icon(), 10)
#>  [1] "accessibility-outline" "accessibility-sharp"   "accessibility"        
#>  [4] "add-circle-outline"    "add-circle-sharp"      "add-circle"           
#>  [7] "add-outline"           "add-sharp"             "add"                  
#> [10] "airplane-outline"