if (requireNamespace("pdftools", quietly = TRUE) &&
capabilities("cairo") &&
!piecepackr:::is_cairo_maybe_buggy()) {
chars <- c("a", "\u2666")
fonts <- c("sans", "Sans Noto", "Noto Sans", "Noto Sans Symbols2")
try(get_embedded_font(fonts, chars))
}
if (requireNamespace("systemfonts", quietly = TRUE) ||
(requireNamespace("pdftools", quietly = TRUE) &&
capabilities("cairo")) && !piecepackr:::is_cairo_maybe_buggy()) {
try(has_font("Dejavu Sans"))
}
Run the code above in your browser using DataLab