update data

SD/20240326_2_dataimport/index.qmd

@@ -274,12 +274,27 @@ geom_point(aes(fill = Area)) +
 dwfun::theme_sci()
 ```
 
+
+## 练习
+
+```{r}
+#| eval: false
+metadf <- readxl::read_xlsx("../../data/airquality.xlsx")
+dir.create("../../data/metacity2/")
+metadf |>
+  nest(sitedf = -site) |>
+  mutate(flag = purrr::map2(site, sitedf,
+    ~ writexl::write_xlsx(.y, paste0("../../data/metacity2/", .x, ".xlsx"))))
+```
+
+
 ## 练习
 
 ```{r}
 #| include: false
 #| eval: false
 if (FALSE) {
+  require(tidyverse)
   conn <- cctdb::get_dbconn("nationalairquality")
   metadf <- tbl(conn, "metadf") |> 
     collect()