Update glyph.R

Check that file exists.
r-devel · Aug 22, 2024 · 49516b3 · 49516b3
1 parent bed10be
commit 49516b3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/library/grDevices/R/glyph.R b/src/library/grDevices/R/glyph.R
@@ -117,6 +117,9 @@ glyphFont <- function(file, index,
                       family, weight, style,
                       PSname=NA) {
     file <- as.character(file)
+    if ( !file.exists(file)) {
+      stop("Font file does not exist")
+    }
     nafile <- is.na(file)
     if (any(nchar(file[!nafile], "bytes") > 500))
         warning("Font file longer than 500 will be truncated")