different NA handling

lorenzwalthert · lorenzwalthert · commit e7e98999892e · 2020-11-26T17:35:18.000+01:00
diff --git a/R/compat-dplyr.R b/R/compat-dplyr.R
@@ -65,7 +65,7 @@ left_join <- function(x, y, by) {
   res <- new_tibble(res, nrow = nrow(res))
   # dplyr::left_join set unknown list columns to NULL, merge sets them
   # to NA
-  if (exists("child", res) && anyNA(res$child)) {
+  if (exists("child", res) && any(is.na(res$child))) {
     res$child[is.na(res$child)] <- list(NULL)
   }
   res

Original file line number	Diff line number	Diff line change
`@@ -65,7 +65,7 @@ left_join <- function(x, y, by) {`
`65`	`65`	`res <- new_tibble(res, nrow = nrow(res))`
`66`	`66`	`# dplyr::left_join set unknown list columns to NULL, merge sets them`
`67`	`67`	`# to NA`
`68`		`- if (exists("child", res) && anyNA(res$child)) {`
	`68`	`+ if (exists("child", res) && any(is.na(res$child))) {`
`69`	`69`	`res$child[is.na(res$child)] <- list(NULL)`
`70`	`70`	`}`
`71`	`71`	`res`