remove contingencies handled by gg_par()

Author: teunbrand

R/legend-draw.R

@@ -203,8 +203,6 @@ draw_key_crossbar <- function(data, params, size) {
 draw_key_path <- function(data, params, size) {
   if (is.null(data$linetype)) {
     data$linetype <- 0
-  } else {
-    data$linetype[is.na(data$linetype)] <- 0
   }
   grob <- segmentsGrob(0.1, 0.5, 0.9, 0.5,
     gp = gg_par(
@@ -391,8 +389,6 @@ draw_key_vline <- function(data, params, size) {
 draw_key_timeseries <- function(data, params, size) {
   if (is.null(data$linetype)) {
     data$linetype <- 0
-  } else {
-    data$linetype[is.na(data$linetype)] <- 0
   }
 
   grid::linesGrob(