Fix build error for R 3.3 and 3.4 (#637)

gorcha · web-flow · commit eb5e8c9fe2b5 · 2021-09-10T11:04:16.000+10:00
diff --git a/R/utils.R b/R/utils.R
@@ -8,6 +8,11 @@ vec_cast_named <- function(x, to, ...) {
   stats::setNames(vec_cast(x, to, ...), names(x))
 }
 
+# TODO: remove when minimum R version >= 3.5
+if (getRversion() < 3.5) {
+  isFALSE <- function(x) is.logical(x) && length(x) == 1L && !is.na(x) && !x
+}
+
 force_utc <- function(x) {
   if (identical(attr(x, "tzone"), "UTC")) {
     x

Original file line number	Diff line number	Diff line change
`@@ -8,6 +8,11 @@ vec_cast_named <- function(x, to, ...) {`
`8`	`8`	`stats::setNames(vec_cast(x, to, ...), names(x))`
`9`	`9`	`}`
`10`	`10`
	`11`	`+# TODO: remove when minimum R version >= 3.5`
	`12`	`+if (getRversion() < 3.5) {`
	`13`	`+ isFALSE <- function(x) is.logical(x) && length(x) == 1L && !is.na(x) && !x`
	`14`	`+}`
	`15`	`+`
`11`	`16`	`force_utc <- function(x) {`
`12`	`17`	`if (identical(attr(x, "tzone"), "UTC")) {`
`13`	`18`	`x`