fix h_filt_yrs()

tbep-tech · Nov 8, 2024 · 37022f7 · 37022f7
1 parent 6734f59
commit 37022f7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/app/global.R b/app/global.R
@@ -32,7 +32,7 @@
 #          https://rstudio.github.io/thematic/articles/auto.html
 
 # devtools::install_local(here::here("../tbeptools"), force = T)
-# devtools::load_all(here::here("../tbeptools"))
+devtools::load_all(here::here("../tbeptools"))
 librarian::shelf(
   bsicons, bslib, dplyr, glue, here, htmltools, leaflet, leaflet.extras2,
   lubridate, markdown, plotly, purrr, readr, scales, sf, shiny, slider,
@@ -255,6 +255,7 @@ h_filt_yrs <- function(st, yrs){
   st_yrs <- getSeasons(st) |> as.numeric()
   i_yrs <- st_yrs >= yrs[1] & st_yrs <= yrs[2]
   st@data <- st@data[i_yrs]
+  st
 }
 
 # plotStorms(h_filt_yrs(h_st, c(2005, 2005)), dynamicPlot = T)

diff --git a/data/storms/IBTrACS.NA.v04r01.nc b/data/storms/IBTrACS.NA.v04r01.nc