Update utils.R

ocaisa · web-flow · commit ce4de427487f · 2024-05-16T14:25:09.000+02:00
diff --git a/feeds/utils.R b/feeds/utils.R
@@ -5,7 +5,7 @@ library(purrr)
 `%<<%` <- function(x, y) {
   if (identical(length(x), 0L)) return(y)
   if (is.null(x) || identical(x, "") ||
-        is.na(x)) return(y)
+        any(is.na(x))) return(y)
   x
 }
 

Original file line number	Diff line number	Diff line change
`@@ -5,7 +5,7 @@ library(purrr)`
`5`	`5`	`%<<%` <- function(x, y) {
`6`	`6`	`if (identical(length(x), 0L)) return(y)`
`7`	`7`	`if (is.null(x) \|\| identical(x, "") \|\|`
`8`		`- is.na(x)) return(y)`
	`8`	`+ any(is.na(x))) return(y)`
`9`	`9`	`x`
`10`	`10`	`}`
`11`	`11`