library(bibliometrix) #Load the Bibliometrix app for the R environment
#Define the directory where the files are and others will be written
setwd("~/Data") #folder created in documents named Data
getwd()
#Import the search files into the R environment and convert them to dataframe
S = convert2df("scopus.bib", dbsource = "scopus", format = "bibtex")
View(S)
W = convert2df("savedrecs.bib", dbsource = "isi", format = "bibtex")
View(W)
#Join the two tables with the data from the searches in the database
Database = mergeDbSources(S, W, remove.duplicated = TRUE)

View(Database)
dim(Database)
#Write the resulting table to an Excel format file for final data cleaning
library(openxlsx)
write.xlsx(Database, file = "Database.xlsx")
results <- biblioAnalysis(Database)
summary(results, k = 10, pause = FALSE)
biblioshiny() # opens biblioshiny on your computer automatically, you must insert the file "Database.xlsx" to perform the analysis.