#Call the junt_scopuswos function
file_db <- system.file("extdata","scopus.bib", package = "bibliorefer")
cabec = TRUE
quoaspa = ""
base_scopus <- entrada_scopus(file_db, cabec, quoaspa)
base_scopus <- as.data.frame(base_scopus)
variavel1 <- base_scopus$V1
variavel2 <- base_scopus$V2
#Call the convert_biblioscopus function
font_scopus <- convert_biblioscopus(variavel1,variavel2)
#Call the convert_bibliowos function
file_db <- system.file("extdata","savedrecs.bib", package = "bibliorefer")
cabec_wos = TRUE
quoaspa_wos = ""
arquivos <- entrada_wos(file_db, cabec_wos, quoaspa_wos)
#Call the convert_bibliowos function
font_wos <- convert_bibliowos(arquivos)
#Call the junt_scopuswos function
font_scopuswos <- junt_scopuswos(font_scopus,font_wos)
font_scopuswos
Run the code above in your browser using DataLab