## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(icons)
have_fa <- icon_installed(fontawesome)

## ----eval = FALSE-------------------------------------------------------------
# download_fontawesome()
# download_ionicons()

## ----icon-chunk, eval = have_fa-----------------------------------------------
fontawesome("rocket", style = "solid")

## ----icon-dollar, eval = have_fa----------------------------------------------
fontawesome$solid$rocket

## ----icon-syntax, eval = have_fa----------------------------------------------
fontawesome$brands$`r-project`

## ----icon-style, eval = have_fa-----------------------------------------------
icon_style(fontawesome("rocket", style = "solid"), scale = 2, fill = "red")

## ----icon-custom--------------------------------------------------------------
icon_dir <- tempfile()
dir.create(icon_dir)
writeLines(
  '<svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 24 24"><path d="M12 2 L22 22 L2 22 Z"/></svg>',
  file.path(icon_dir, "triangle.svg")
)
custom <- icon_set(icon_dir)
custom$triangle

## ----icon-save, eval = FALSE--------------------------------------------------
# icon_save(list(rocket = fontawesome$solid$rocket), path = "app_icons")

## ----icon-find, eval = have_fa------------------------------------------------
icon_find("rocket")