Update code

Author: mine-cetinkaya-rundel

07-model-slr.Rmd

@@ -502,9 +502,9 @@ crops_country <- crops_country %>%
   ungroup() %>%
   pivot_wider(
     names_from = crop,
-    values_from = c(total, prop)
+    values_from = c(total, prop),
+    values_fill = 0
   ) %>%
-  na_if(0) %>%
   mutate(
     n_missing = rowSums(is.na(.)) / 2
   ) %>%