In the same article you mention ( tidyverse website ) there is 'a trick' with the rowSums
function. You can use that as :
rowAny <- function(x) rowSums(x) > 0
df %>%
filter(rowAny(
across(
.cols = everything(),
.fns = ~ is.na(.x)
)
)
)