Replaced tidyr::separate with tidytable::separate to increase speed

JGCRI · Mar 20, 2024 · eb7744b · eb7744b
1 parent a9f92b2
commit eb7744b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -31,7 +31,8 @@ Imports:
 	sf,
 	purrr,
 	ggplot2,
-	stringi
+	stringi,
+	tidytable
 Suggests: 
     rmarkdown,
     testthat (>= 3.0.0),

diff --git a/R/calculate_deltas_from_climate.R b/R/calculate_deltas_from_climate.R
@@ -206,7 +206,7 @@ calculate_deltas_from_climate <- function(climate_dir = NULL,
     x <- cbind(grid, x1, x2) %>%
       dplyr::select(unique(colnames(.))) %>%
       tidyr::gather(time, value, -lon, -lat) %>%
-      tidyr::separate(time, into = c('month', 'year'), sep = '~') %>%
+      tidytable::separate(col = time, into = c('month', 'year'), sep = '~') %>%
       dplyr::mutate(year = as.integer(year),
              month=as.integer(month)) %>%
       dplyr::filter(year >= 1965)