#Call the convert_biblioscopus 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)
font_scopus
Run the code above in your browser using DataLab