Fix zero-filling on 'old' IPHC data

pbs-assess · Jun 7, 2024 · 1cda3d0 · 1cda3d0
1 parent dc4b326
commit 1cda3d0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/data-raw/iphc-simple.R b/data-raw/iphc-simple.R
@@ -352,7 +352,7 @@ full_old <- select(
   old, -number_observed, -species_common_name) |>
   distinct()
 full_old <- purrr::map_dfr(
-  sort(unique(old$species_common_name)),
+  sort(unique(dat_pbs$species_common_name)),
   \(x) mutate(full_old, species_common_name = x)
 )
 missing <- anti_join(full_old, old)