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