needs if_all not if_any

filter works best to remove row unless it has a code and a name (this helps remove the © Commonwealth of Australia 2023 row)
runapp-aus · Feb 7, 2024 · 1bdf270 · 1bdf270
1 parent 9f28f44
commit 1bdf270
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/seifa.R b/R/seifa.R
@@ -297,7 +297,7 @@ get_seifa_index_sheet <- function(filename, sheetname, structure = c("sa1", "sa2
       col_names = column_names,
       na = c("", "NA", "-")
     ) %>%
-      dplyr::filter(if_any(ends_with(c("_name","_code")), ~ !is.na(.x))) %>%
+      dplyr::filter(if_all(ends_with(c("_name","_code")), ~ !is.na(.x))) %>%
       select(-starts_with("blank")) %>%
       mutate(
         structure = structure,