# NOT RUN {
# Read from .bib file:
require(journalabbr)
path1 = system.file("extdata", "testfile_2.bib", package = "journalabbr", mustWork = TRUE)
path2 = system.file("extdata", "testfile_3.bib", package = "journalabbr", mustWork = TRUE)
path3 = system.file("extdata", "testfile_4.bib", package = "journalabbr", mustWork = TRUE)
tib1 <- read_bib2tib(path1)
tib2 <- read_bib2tib(path2)
tib3 <- read_bib2tib(path3)
df = rbind_bib(tib1,tib2,fill=TRUE)
df1 = rbind_bib(tib1,tib2,tib3,fill=TRUE)
m1 = unique_bib(df1,retent_method='namin')
m2 = unique_bib(df1,retent_method='first')
m3 = unique_bib(df1,retent_method='last')
identical(m1,m2)
identical(m1,m3)
identical(m2,m3)
# }
Run the code above in your browser using DataLab