if (FALSE) {
ymlfile <- system.file("exdata", "sampleapp.yml", package = "binman")
trdata <- system.file("testdata", "test_dlres.Rdata", package = "binman")
load(trdata)
testthat::with_mock(
`httr::GET` = function(...) {
test_llres
},
`base::dir.create` = function(...) {
TRUE
},
`utils::unzip` = function(zipfile, ...) {
zipfile
},
procyml <- process_yaml(ymlfile)
)
procyml
}
Run the code above in your browser using DataLab