Install CRAN's patch

From @pmur002

Closes #89

Author: lionel-

R/utils.R

@@ -203,3 +203,6 @@ next_element <- function(element, group, direction = 1) {
 
   group[next_position]
 }
+
+# Silence R CMD check NOTE
+freetypeharfbuzz::font_info

src/.gitignore

@@ -673,6 +673,23 @@ void svg_raster(unsigned int *raster, int w, int h,
   stream->flush();
 }
 
+SEXP svg_set_pattern(SEXP pattern, pDevDesc dd) {
+    return R_NilValue;
+}
+
+void svg_release_pattern(SEXP ref, pDevDesc dd) {}
+
+SEXP svg_set_clip_path(SEXP path, SEXP ref, pDevDesc dd) {
+    return R_NilValue;
+}
+
+void svg_release_clip_path(SEXP ref, pDevDesc dd) {}
+
+SEXP svg_set_mask(SEXP path, SEXP ref, pDevDesc dd) {
+    return R_NilValue;
+}
+
+void svg_release_mask(SEXP ref, pDevDesc dd) {}
 
 pDevDesc svg_driver_new(SvgStreamPtr stream, int bg, double width,
                         double height, double pointsize,
@@ -708,6 +725,14 @@ pDevDesc svg_driver_new(SvgStreamPtr stream, int bg, double width,
   dd->metricInfo = svg_metric_info;
   dd->cap = NULL;
   dd->raster = svg_raster;
+#if R_GE_version >= 13
+  dd->setPattern      = svg_set_pattern;
+  dd->releasePattern  = svg_release_pattern;
+  dd->setClipPath     = svg_set_clip_path;
+  dd->releaseClipPath = svg_release_clip_path;
+  dd->setMask         = svg_set_mask;
+  dd->releaseMask     = svg_release_mask;
+#endif
 
   // UTF-8 support
   dd->wantSymbolUTF8 = (Rboolean) 1;
@@ -741,6 +766,10 @@ pDevDesc svg_driver_new(SvgStreamPtr stream, int bg, double width,
   dd->haveTransparency = 2;
   dd->haveTransparentBg = 2;
 
+#if R_GE_version >= 13
+  dd->deviceVersion = R_GE_definitions;
+#endif
+
   dd->deviceSpecific = new SVGDesc(stream, standalone, aliases);
   return dd;
 }