47 lines
1.6 KiB
Diff
47 lines
1.6 KiB
Diff
From 5e63b9ef263d519ffe12d1471874d2442eb3a591 Mon Sep 17 00:00:00 2001
|
|
From: Elliott Sales de Andrade <quantum.analyst@gmail.com>
|
|
Date: Sat, 2 Jun 2018 23:13:06 -0400
|
|
Subject: [PATCH] Load existing font file.
|
|
|
|
Signed-off-by: Elliott Sales de Andrade <quantum.analyst@gmail.com>
|
|
---
|
|
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
|
|
|