use "isTRUE()"

microly · microly · commit c6f6565dfa43 · 2019-12-02T12:47:08.000+08:00
diff --git a/R/layer-sf.R b/R/layer-sf.R
@@ -37,7 +37,7 @@ LayerSf <- ggproto("LayerSf", Layer,
     }
 
     # automatically determine the legend type
-    if (is.na(self$show.legend) || self$show.legend == TRUE) {
+    if (is.na(self$show.legend) || isTRUE(self$show.legend)) {
       if (is_sf(data)) {
         if (sf_geometry_type(data) %in% c("POINT", "MULTIPOINT"))
           self$geom_params$legend <- "point"

Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,7 @@ LayerSf <- ggproto("LayerSf", Layer,`
`37`	`37`	`}`
`38`	`38`
`39`	`39`	`# automatically determine the legend type`
`40`		`- if (is.na(self$show.legend) \|\| self$show.legend == TRUE) {`
	`40`	`+ if (is.na(self$show.legend) \|\| isTRUE(self$show.legend)) {`
`41`	`41`	`if (is_sf(data)) {`
`42`	`42`	`if (sf_geometry_type(data) %in% c("POINT", "MULTIPOINT"))`
`43`	`43`	`self$geom_params$legend <- "point"`