From 5e63b9ef263d519ffe12d1471874d2442eb3a591 Mon Sep 17 00:00:00 2001 From: Elliott Sales de Andrade Date: Sat, 2 Jun 2018 23:13:06 -0400 Subject: [PATCH] Load existing font file. Signed-off-by: Elliott Sales de Andrade --- R/load_showtext_fonts.R | 21 ++------------------- 1 file changed, 2 insertions(+), 19 deletions(-) diff --git a/R/load_showtext_fonts.R b/R/load_showtext_fonts.R index 1d86255..23449b1 100644 --- a/R/load_showtext_fonts.R +++ b/R/load_showtext_fonts.R @@ -31,26 +31,9 @@ load_default_font = function() if(already_loaded("wqy-microhei")) return(invisible(NULL)) - ## Extract font file - font_file = system.file("fonts", "wqy-microhei.ttc.zip", package = "showtextdb") - out_dir = tempdir() - out_file = file.path(out_dir, "wqy-microhei.ttc") - if(!file.exists(out_file)) - { - ## Test for write permission - if(file.access(out_dir, mode = 2) < 0) - { - msg = paste("the temporary directory ", out_dir, - " does not have write permission,\n", - "failed to load the 'WenQuanYi Micro Hei' font", sep = "") - warning(msg) - return(invisible(NULL)) - } - utils::unzip(font_file, exdir = out_dir, overwrite = FALSE) - } - ## Add font to sysfonts - sysfonts::font_add("wqy-microhei", out_file) + font_file = system.file("fonts", "wqy-microhei.ttc", package = "showtextdb") + sysfonts::font_add("wqy-microhei", font_file) invisible(NULL) } -- 2.25.4