lty and lwd should be NA for polygons and rectangles in legend, even if specified

Lindsay Carr · Lindsay Carr · commit a239308a0772 · 2015-10-02T08:49:34.000-05:00
diff --git a/R/set_args.R b/R/set_args.R
@@ -101,6 +101,8 @@ set_legend_args <- function(object, fun.name, ..., legend.name) {
     
   } else if (fun.name %in% c("polygon", "rect")) {
     names(usr.args) <- replace(names(usr.args), which(names(usr.args)=="col"), "fill")
+    usr.args$lty <- NA #lty and lwd should always be NA for polygon & rectangles in the legend
+    usr.args$lwd <- NA  
     fun.specific <- list(border=par("fg"))
   }
   

Original file line number	Diff line number	Diff line change
`@@ -101,6 +101,8 @@ set_legend_args <- function(object, fun.name, ..., legend.name) {`
`101`	`101`
`102`	`102`	`} else if (fun.name %in% c("polygon", "rect")) {`
`103`	`103`	`names(usr.args) <- replace(names(usr.args), which(names(usr.args)=="col"), "fill")`
	`104`	`+ usr.args$lty <- NA #lty and lwd should always be NA for polygon & rectangles in the legend`
	`105`	`+ usr.args$lwd <- NA`
`104`	`106`	`fun.specific <- list(border=par("fg"))`
`105`	`107`	`}`
`106`	`108`