#Deve ser usado quando ocorrer mais de 500 resultados da WoS pois é necessário exportar em vários arquivos

library(bibliometrix) #Carregar o app Bibliometrix para o ambiente R

#Definir o diretório onde estão os arquivos e serão gravados outros
setwd("~/Data") #pasta criada em documentos de nome Data
getwd()
#Importar os arquivos da busca para o ambiente R e convertê-los em dataframe
S = convert2df("scopus.bib", dbsource = "scopus", format = "bibtex")
View(S)
# Para mais de 500 resultados da WoS é necessário exportar em vários arquivos
file <- c("savedrecs.bib","savedrecs_1.bib")
W = convert2df(file,dbsource = "isi", format = "bibtex")
View(W)
#Fazer a união das duas tabelas com os dados das buscas nas base de dados
Database = mergeDbSources(S, W, remove.duplicated = TRUE)

View(Database)
dim(Database)
#Gravar a tabela resultante em um arquivo formato Excel para a limpeza final dos dados
library(openxlsx)
write.xlsx(Database, file = "Database.xlsx")
results <- biblioAnalysis(Database)
summary(results, k = 10, pause = FALSE)
biblioshiny() # abre o bibloshiny no seu computador de forma automatica, voce deve inserir o file "Database.xlsx" para realizar as analises.