drop aggregation if any relevant col is all NA

Author: nmdefries

facebook/delphiFacebook/R/contingency_aggregate.R

@@ -158,7 +158,12 @@ post_process_aggs <- function(df, aggregations, cw_list) {
   metric_cols <- unique(aggregations$metric)
 
   cols_check_available <- unique(c(group_vars[group_vars != "geo_id"], metric_cols))
-  available <- cols_check_available %in% names(df)
+  available <- unlist(
+    lapply(cols_check_available, function(col) {
+      # Exists in dataframe and column is not only NAs
+      col %in% names(df) && !all(is.na( unique(df[[col]] )))
+    })
+  )
   cols_not_available <- cols_check_available[ !available ]
   for (col_var in cols_not_available) {
     # Remove from aggregations