# \donttest{
wd <- tempdir()
savedir <- setwd(wd)
file.copy(list.files(system.file("extdata", package = "rsf"),
full.names = TRUE), ".")
use_references(number = 4)
setwd(savedir)
# }
Run the code above in your browser using DataLab