Add "processed" label to prevent duplicate publication issues

- fetch-new-papers now checks both open issues AND closed issues
  with "processed" label for existing DOIs
- update-bibtex adds "processed" label when closing issues
- Papers you've reviewed (whether added or not) won't reappear
- Open issues can persist indefinitely without creating duplicates

Co-Authored-By: sbfnk-bot <sbfnk-bot@users.noreply.github.com>

Author: sbfnk

snippets/post_publications.R

@@ -4,6 +4,34 @@ source("_automation/get_new_papers.R")
 month_1st <- format(lubridate::floor_date(lubridate::today() - 1, "month"))
 new_papers <- get_new_papers_team(from_date = month_1st)
 
+# Get DOIs from open OR processed publications issues to avoid duplicates
+# "processed" label marks issues that have been reviewed (even if no papers added)
+open_issues <- gh::gh(
+ "/repos/{gh_repo}/issues",
+ gh_repo = gh_repository,
+ state = "all",
+ labels = "publications",
+ per_page = 100
+) |>
+ purrr::keep(~ .x$state == "open" || "processed" %in% purrr::map_chr(.x$labels, "name"))
+
+pending_dois <- character(0)
+if (length(open_issues) > 0) {
+ # Extract DOIs from issue bodies using regex
+ pending_dois <- open_issues |>
+   purrr::map_chr("body", .default = "") |>
+   purrr::map(~ regmatches(.x, gregexpr("doi\\s*=\\s*\\{([^}]+)\\}", .x, ignore.case = TRUE))) |>
+   purrr::map(~ gsub("doi\\s*=\\s*\\{|\\}", "", .x, ignore.case = TRUE)) |>
+   unlist() |>
+   unique()
+}
+
+# Filter out papers already in open issues
+if (nrow(new_papers) > 0 && length(pending_dois) > 0) {
+ new_papers <- new_papers |>
+   dplyr::filter(!(doi %in% pending_dois))
+}
+
 if (nrow(new_papers) > 0) {
   bibentries_new <- create_bibentries(new_papers)
   saveRDS(bibentries_new, paste0("bibentries_previous_month.rds"))

snippets/update_publications.R

@@ -67,7 +67,8 @@ if (!any(selected)) {
     "PATCH /repos/{gh_repo}/issues/{issue_number}",
     gh_repo = gh_repository,
     issue_number = issue_number,
-    state = "closed"
+    state = "closed",
+    labels = list("publications", "processed")
   )
   quit(save = "no")
 }
@@ -120,10 +121,11 @@ df <- df |>
 
 bib2df::df2bib(df, file = "_data/papers.bib")
 
-# Close the issue after processing
+# Close the issue and add "processed" label
 gh::gh(
   "PATCH /repos/{gh_repo}/issues/{issue_number}",
   gh_repo = gh_repository,
   issue_number = issue_number,
-  state = "closed"
+  state = "closed",
+  labels = list("publications", "processed")
 )