Add affiliations to pubmedDashboard dataframe

Usage

add_affiliation(data)

Arguments

data: The dataframe on which to add affiliations (department and university).

Examples

# \dontshow{
.old_wd <- setwd(tempdir())
# }
if (FALSE) {
pubmed_query_string <- paste(
  "passion [Title/Abstract]",
  "AND Dualistic Model of Passion [Text Word]",
  "AND ('2023/01/01' [Date - Publication] : '2023/12/31' [Date - Publication])"
)

d.fls <- batch_pubmed_download2(
  pubmed_query_string = pubmed_query_string,
  year_low = 2023,
  year_high = 2023
)
articles.df <- all_articles_to_df(d.fls)
articles.df2 <- add_affiliation(articles.df)
articles.df2[5, ]
}
# \dontshow{
unlink("easyPubMed_data_01.txt")
setwd(.old_wd)
# }