remove fontface, not font (if it should exist) when updating gpar

wilkelab · Apr 21, 2022 · bad2607 · bad2607
1 parent ef5f1aa
commit bad2607
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/drawing-context.R b/R/drawing-context.R
@@ -46,8 +46,8 @@ set_style <- function(drawing_context, style = NULL) {
 update_gpar <- function(gp, gp_new) {
   names_new <- names(gp_new)
   names_old <- names(gp)
-  gp[c(intersect(names_old, names_new), "font")] <- NULL
-  gp_new["font"] <- NULL
+  gp[c(intersect(names_old, names_new), "fontface")] <- NULL
+  gp_new["fontface"] <- NULL
   do.call(gpar, c(gp, gp_new))
 }