remove lubridate

cct-datascience · Feb 25, 2025 · ca6e811 · ca6e811
1 parent 9193d9b
commit ca6e811
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/get_data.R b/R/get_data.R
@@ -8,7 +8,8 @@ get_data <- function(file) {
     clean_names() %>%
     mutate(species_short = abbreviate(species)) %>%
     mutate(sex = tolower(sex)) %>%
-    mutate(year = as.integer(lubridate::year(date_egg))) %>%
+    mutate(date_egg = as.Date(date_egg)) %>% 
+    mutate(year = as.integer(format(date_egg, "%Y"))) %>%
     mutate(across(where(is.character), as.factor)) %>%
     mutate(flipper_length_mm = as.integer(flipper_length_mm)) %>%
     mutate(body_mass_g = as.integer(body_mass_g)) %>%