# NOT RUN {
file_location<-system.file("extdata", "avian_ecology_bibliography.ris", package="revtools")
x<-read_bibliography(file_location)
# export a subset of entries as a new file
write_bibliography(x[1:5],
filename=paste0(tempdir(), "/x_out.ris"),
format="ris")
# }
Run the code above in your browser using DataLab