Update get_gw.R

vincentarelbundock · Sep 9, 2023 · 10b84d4 · 10b84d4
1 parent 5c2526f
commit 10b84d4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/dictionary/get_gw.R b/dictionary/get_gw.R
@@ -21,12 +21,12 @@ gw <- gw %>%
         country = gsub(" \\(Annam.*", "", country)
     ) %>%
     # ambiguous or not covered
-    filter(!gwc %in% c("TBT", "DRV", "HSD", "HSE", "WRT", "UPC", "TRA")) %>%
+    filter(!gwc %in% c("TBT", "DRV", "HSD", "HSE", "WRT", "UPC", "TRA")) %>% 
     mutate(idx = 1:n()) |>
     group_by(idx) |>
     mutate(panel = list(year(birth):year(death))) %>%
     ungroup() |>
-    unnest(panel) |>
+    unnest(panel) |> 
     select(-idx, -birth, -death) |>
     rename(year = panel) |>
     # arbitrary