Day 29 Deprecated Syntax

[Andrew Mascillaro]

Day 29 (data 09) q4-setup-count has deprecated code:

rowAny <- function(x) rowSums(x) > 0
countna <- function(df, vars_lagged) {
  df %>%
    filter(rowAny(across(vars_lagged, is.na))) %>%
    dim %>%
    .[[1]]
}

countna(df_q3, c("region"))

This works now, but updated syntax would probably be ideal