froggy <- c(152.99677, -27.48936, 152.99749, -27.48874)
test_that("ox_download errors on bad arguments", {
expect_error(ox_download(bbox = 1.23))
expect_error(ox_download(bbox = "character"))
expect_error(ox_download(bbox = froggy,
destfile = c("a.osm", "b.osm")))
expect_error(ox_download(bbox = froggy,
destfile = 1))
})
test_that("ox_download returns a character vector and writes a file", {
skip_on_cran()
expect_type(suppressMessages(ox_download(bbox = froggy)), type = "character")
expect_true(file.exists("ox_152.99677_-27.48936_152.99749_-27.48874.osm"))
})
test_that("ox_download uses cached file", {
skip_on_cran()
expect_message(ox_download(bbox = froggy),
"Using cached")
})
file.remove("ox_152.99677_-27.48936_152.99749_-27.48874.osm")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.