isFALSE() doesn't exist in R 3.4

clauswilke · clauswilke · commit 3034d1858d4d · 2018-08-30T16:25:20.000-05:00
diff --git a/R/sf.R b/R/sf.R
@@ -160,7 +160,7 @@ LayerSf <- ggproto("LayerSf", Layer,
     }
 
     if ((isTRUE(self$inherit.aes) && is.null(self$mapping$geometry) && is.null(plot$mapping$geometry)) ||
-        (isFALSE(self$inherit.aes) && is.null(self$mapping$geometry))) {
+        (!isTRUE(self$inherit.aes) && is.null(self$mapping$geometry))) {
       self$mapping$geometry <- as.name(geometry_col)
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -160,7 +160,7 @@ LayerSf <- ggproto("LayerSf", Layer,`
`160`	`160`	`}`
`161`	`161`
`162`	`162`	`if ((isTRUE(self$inherit.aes) && is.null(self$mapping$geometry) && is.null(plot$mapping$geometry)) \|\|`
`163`		`- (isFALSE(self$inherit.aes) && is.null(self$mapping$geometry))) {`
	`163`	`+ (!isTRUE(self$inherit.aes) && is.null(self$mapping$geometry))) {`
`164`	`164`	`self$mapping$geometry <- as.name(geometry_col)`
`165`	`165`	`}`
`166`	`166`	`}`