article <- jst_get_article(jst_example("article_with_references.xml"))
jst_unify_journal_id(article)
# per default, original columns with data on the journal are removed
library(dplyr)
jst_unify_journal_id(article) %>%
select(contains("journal")) %>%
names()
# you can keep them by setting `remove_cols` to `FALSE`
jst_unify_journal_id(article, remove_cols = FALSE) %>%
select(contains("journal")) %>%
names()
Run the code above in your browser using DataLab