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