From 72c0c5f71eff44f90b4214a6537bb3d75841f508 Mon Sep 17 00:00:00 2001 From: Jeanette Clark Date: Wed, 18 Sep 2024 23:28:35 +0000 Subject: [PATCH] one last thing to mak sure we can bind all possible results --- R/citation_search.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/citation_search.R b/R/citation_search.R index aebcec9..707af5e 100644 --- a/R/citation_search.R +++ b/R/citation_search.R @@ -26,7 +26,9 @@ citation_search <- function(identifiers, # Run each search, producing a list of dataframes result_df_list <- lapply(search_funs, function(search_fun) { - search_fun(identifiers) + df <- search_fun(identifiers) + df[] <- lapply(df, as.character) # Coerce all columns to character + return(df) }) # Combine the resulting data frames and return the result df