update hurricanes nc

tbep-tech · Sep 25, 2024 · 7ff4d2b · 7ff4d2b
1 parent 3f2e367
commit 7ff4d2b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/data/storms/IBTrACS.NA.v04r01.nc b/data/storms/IBTrACS.NA.v04r01.nc
diff --git a/hurricanes.qmd b/hurricanes.qmd
@@ -19,7 +19,7 @@ editor_options:
 
 ```{r}
 librarian::shelf(
-  dplyr, glue, here, mapview, rworldxtra, sf, 
+  dplyr, glue, here, mapview, purrr, rworldxtra, sf, 
   StormR, 
   # umr-amap/StormR,
   tbep-tech/tbeptools, quiet = T)
@@ -63,11 +63,13 @@ st <- defStormsList(
   verbose     = 0)
 
 d <- tibble(
-  storm = getNames(st),
-  year  = getSeasons(st) |> as.numeric(),
-  scale = getScale(st) |> as.numeric()) # A tibble: 67 × 3
-d
+  storm    = getNames(st),
+  year     = getSeasons(st) |> as.numeric(),
+  date_beg = map_chr(st@data, [email protected]$iso.time[[1]]) |> 
+    as.Date(),
+  scale    = getScale(st) |> as.numeric()) # A tibble: 234 × 4
 
+# unlist(lapply(s@data, getSeasons)))
 d_sum <- d |>
   group_by(year) |>
   summarize(