if (FALSE) {
trdata <- system.file("testdata", "test_dlres.Rdata", package = "binman")
tldata <- system.file("testdata", "test_dllist.Rdata", package = "binman")
load(trdata)
load(tldata)
dllist <- assign_directory(test_dllist, "myapp")
testthat::with_mock(
`httr::GET` = function(...) {
test_llres
},
`base::dir.create` = function(...) {
TRUE
},
dlfiles <- download_files(dllist)
)
}
Run the code above in your browser using DataLab