Merge pull request #610 from tfjaeger/main

crsh · web-flow · commit 41f8f03fdc7d · 2026-01-13T16:55:04.000+01:00
Fixing write_bib for packages with multiple citation entries
diff --git a/R/r_refs.R b/R/r_refs.R
@@ -102,7 +102,7 @@ create_bib <- function(x, file, append = TRUE, prefix = "R-", type_pref = c("Art
         bibtypes <- unlist(cite$bibtype)
 
         pref_entry <- type_pref[tolower(type_pref) %in% tolower(bibtypes)][1]
-        cite <- if(is.na(pref_entry)) cite[[1]] else cite[[bibtypes == pref_entry]]
+        cite <- if(is.na(pref_entry)) cite[[1]] else cite[[which(bibtypes %in% pref_entry)]]
       }
 
       if(tweak) {

Original file line number	Diff line number	Diff line change
`@@ -102,7 +102,7 @@ create_bib <- function(x, file, append = TRUE, prefix = "R-", type_pref = c("Art`
`102`	`102`	`bibtypes <- unlist(cite$bibtype)`
`103`	`103`
`104`	`104`	`pref_entry <- type_pref[tolower(type_pref) %in% tolower(bibtypes)][1]`
`105`		`- cite <- if(is.na(pref_entry)) cite[[1]] else cite[[bibtypes == pref_entry]]`
	`105`	`+ cite <- if(is.na(pref_entry)) cite[[1]] else cite[[which(bibtypes %in% pref_entry)]]`
`106`	`106`	`}`
`107`	`107`
`108`	`108`	`if(tweak) {`