Only include papers published in current year

Author: sbfnk

_automation/get_new_papers.R

@@ -30,7 +30,7 @@ get_new_papers_orcid <- function(orcid, from_date) {
           lubridate::parse_date_time(issued, c("Y-m-d", "Y-m", "Y")), "%Y"
         ))
       ) |>
-      dplyr::filter(pub_year >= as.numeric(format(Sys.Date(), "%Y")) - 1) |>
+      dplyr::filter(pub_year >= as.numeric(format(Sys.Date(), "%Y"))) |>
       dplyr::select(-pub_year)
     existing_papers <- dois_from_bib("_data/papers.bib")
     refs <- refs |>