Prevent NA linetype

teunbrand · teunbrand · commit 77a8140e5380 · 2025-01-06T14:56:48.000+01:00
diff --git a/R/utilities-grid.R b/R/utilities-grid.R
@@ -41,6 +41,9 @@ gg_par <- function(..., stroke = NULL, pointsize = NULL) {
     stroke[is.na(stroke)] <- 0
     args$fontsize <- pointsize * .pt + stroke * .stroke / 2
   }
+  if (!is.null(args$lty) && anyNA(args$lty)) {
+    args$lty[is.na(args$lty)] <- if (is.character(args$lty)) "blank" else 0
+  }
 
   inject(gpar(!!!args))
 }

Original file line number	Diff line number	Diff line change
`@@ -41,6 +41,9 @@ gg_par <- function(..., stroke = NULL, pointsize = NULL) {`
`41`	`41`	`stroke[is.na(stroke)] <- 0`
`42`	`42`	`args$fontsize <- pointsize * .pt + stroke * .stroke / 2`
`43`	`43`	`}`
	`44`	`+ if (!is.null(args$lty) && anyNA(args$lty)) {`
	`45`	`+ args$lty[is.na(args$lty)] <- if (is.character(args$lty)) "blank" else 0`
	`46`	`+ }`
`44`	`47`
`45`	`48`	`inject(gpar(!!!args))`
`46`	`49`	`}`