initialize apc to be NA so it will always be a column in the output df

ropensci · Oct 24, 2024 · f142b01 · f142b01
1 parent 55d8fb1
commit f142b01
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/oa2df.R b/R/oa2df.R
@@ -206,7 +206,7 @@ works2df <- function(data, abstract = TRUE, verbose = TRUE,
       sim_fields$publication_date <- as.Date(sim_fields$publication_date)
     }
 
-    author <- venue <- ab <- apc <- NULL
+    author <- venue <- ab <- NULL
 
     if (!is.null(paper$primary_location)) {
       so_info <- paper$primary_location["source"]
@@ -260,6 +260,7 @@ works2df <- function(data, abstract = TRUE, verbose = TRUE,
     }
 
     # Process APC
+    apc <- NA
     if (any(lengths(paper[c("apc_list", "apc_paid")]) > 0)) {
       apc_fields <- list(value = NA, currency = NA, value_usd = NA, provenance = NA)
       apc <- list(rbind.data.frame(