bibliometrix.R

library(bibliometrix)
library(openxlsx)

# Definir pasta de trabalho onde devem estar os arquivos Ctrl + Shit H

# Colocar o nome correto dos arquivos

# Web of Science
wos    <- convert2df(file     = 'savedrecs.bib',
                     dbsource = 'wos',
                     format   = 'bibtex')
# Scopus
scopus <- convert2df(file     = 'scopus.bib',
                     dbsource = 'scopus',
                     format   = 'bibtex')

M <- mergeDbSources(wos, scopus, remove.duplicated = TRUE)

write.xlsx(M, 'base_junta.xlsx')

biblioshiny()