Fleshing out each file section

2022-09-17 10:58:18 -05:00
parent d84c4a3731
commit c5a81b92ba
15 changed files with 125 additions and 19 deletions
@@ -0,0 +1,20 @@
+
+
+repurrrsive::gap_simple |>
+  count(year)
+
+by_year <- repurrrsive::gap_simple |>
+  group_by(year)
+paths <- by_year |>
+  group_keys() |>
+  mutate(path = str_glue("data/gapminder/{year}.xlsx")) |>
+  pull()
+paths
+
+years <- by_year |>
+  group_split() |>
+  map(\(df) select(df, -year))
+
+dir.create("data/gapminder")
+
+walk2(years, paths, writexl::write_xlsx)