Nothing
test_that("prepInputs in a simple one double nested zip file, passing only destinationPath and url", {
skip_on_cran()
testInit("terra", needInternet = TRUE)
url <- "https://github.com/tati-micheletti/host/raw/master/data/rasterNested.zip"
noisyOutput <- capture.output({
testZip <- reproducible::prepInputs(url = url, destinationPath = tmpdir)
})
expect_true(exists("testZip"))
})
test_that("prepInputs in a simple one double nested zip file, passing targetFile", {
skip_on_cran()
testInit("terra", needInternet = TRUE)
url <- "https://github.com/tati-micheletti/host/raw/master/data/rasterNested.zip"
noisyOutput <- capture.output({
testZip2 <- reproducible::prepInputs(
url = url,
targetFile = "rasterTest.tif",
destinationPath = tmpdir
)
})
expect_true(exists("testZip2"))
})
test_that("prepInputs in a two files double nested zip file, passing only destinationPath and url", {
skip_on_cran()
testInit("terra", needInternet = TRUE)
url <- "https://github.com/tati-micheletti/host/raw/master/data/multiFilesOutter.zip"
noisyOutput <- capture.output({
testZip3 <- reproducible::prepInputs(url = url, destinationPath = tmpdir)
})
expect_true(exists("testZip3"))
})
test_that("prepInputs in a two files double nested zip file, passing targetFile", {
skip_on_cran()
testInit("terra", needInternet = TRUE)
url <- "https://github.com/tati-micheletti/host/raw/master/data/multiFilesOutter.zip"
noisyOutput <- capture.output({
testZip4 <- reproducible::prepInputs(
url = url,
targetFile = "rasterTest.tif",
destinationPath = tmpdir
)
})
expect_true(exists("testZip4"))
})
test_that(
paste0(
"prepInputs in a two files double nested zip file, with the wanted file in",
"the second layer, and a shapefile in the first, not specifying the targetFile"
),
{
skip_on_cran()
testInit("terra", needInternet = TRUE)
# Gets the first file it finds, the shapefile; warns the user about it
url <- "https://github.com/tati-micheletti/host/raw/master/data/multiFilesMultiLevels.zip"
# The warning is about the .prj file missing, which is not relevant here -
# Capture it and do nothing with it
noisyOutput <- capture.output({
warn <- capture_warnings({
testZip6 <- reproducible::prepInputs(url = url, destinationPath = tmpdir)
})
})
expect_true(exists("testZip6"))
expect_is(testZip6, vectorType())
}
)
test_that(
paste0(
"prepInputs in a two files double nested zip file, with the wanted file in",
"the second layer, and a shapefile in the first, specifying the targetFile"
),
{
skip_on_cran()
testInit("terra", needInternet = TRUE)
url <- "https://github.com/tati-micheletti/host/raw/master/data/multiFilesMultiLevels.zip"
noisyOutput <- capture.output({
testZip7 <- reproducible::prepInputs(
url = url,
targetFile = "rasterTest.tif",
destinationPath = tmpdir
)
})
expect_true(exists("testZip7"))
expect_is(testZip7, rasterType())
}
)
test_that(
paste(
"prepInputs in a two files double nested rar file,",
"with the wanted file in the second layer, not specifying the targetFile"
),
{
skip_on_cran()
skip_if(isMac() && isCI())
testInit("terra", needInternet = TRUE)
extractSystemCallPath <- .archiveExtractBinary()
if (is.null(extractSystemCallPath)) {
noisyOutput <- capture.output({
warn <- capture_warnings({
expect_error({
testRar <- reproducible::prepInputs(
url = "https://github.com/tati-micheletti/host/raw/master/data/nestedRarTxtFiles.rar",
destinationPath = tmpdir
)
})
})
})
} else {
noisyOutput <- capture.output({
testRar <- reproducible::prepInputs(
url = "https://github.com/tati-micheletti/host/raw/master/data/nestedRarTxtFiles.rar",
destinationPath = tmpdir
)
})
expect_true(exists("testRar"))
expect_is(testRar, rasterType())
}
}
)
test_that(
paste0(
"prepInputs in a two files double nested rar file, with the wanted file in",
" the second layer, specifying the targetFile"
),
{
skip_on_cran()
skip_if(isMac() && isCI())
testInit("terra", needInternet = TRUE)
extractSystemCallPath <- .archiveExtractBinary()
url <- "https://github.com/tati-micheletti/host/raw/master/data/nestedRarTxtFiles.rar"
if (is.null(extractSystemCallPath)) {
noisyOutput <- capture.output(
expect_error({
testRar2 <- reproducible::prepInputs(
url = url,
targetFile = "rasterTOtestRAR.tif",
destinationPath = tmpdir
)
})
)
} else {
noisyOutput <- capture.output({
testRar2 <- reproducible::prepInputs(
url = url,
targetFile = "rasterTOtestRAR.tif",
destinationPath = tmpdir
)
})
expect_true(exists("testRar2"))
expect_is(testRar2, rasterType())
}
}
)
test_that(paste0(
"prepInputs in a two files double nested rar file, with the wanted file in",
"the second layer, not specifying the targetFile, passing the main archive"
), {
skip_on_cran()
skip_if(isMac() && isCI())
testInit("terra", needInternet = TRUE)
extractSystemCallPath <- .archiveExtractBinary()
url <- "https://github.com/tati-micheletti/host/raw/master/data/nestedRarTxtFiles.rar"
if (is.null(extractSystemCallPath)) {
noisyOutput <- capture.output(
expect_error({
testRar3 <- reproducible::prepInputs(
url = url,
archive = "nestedRarTxtFiles.rar",
targetFile = "rasterTOtestRAR.tif",
destinationPath = tmpdir
)
})
)
} else {
noisyOutput <- capture.output({
testRar3 <- reproducible::prepInputs(
url = url,
archive = "nestedRarTxtFiles.rar",
targetFile = "rasterTOtestRAR.tif",
destinationPath = tmpdir
)
})
expect_true(exists("testRar3"))
expect_is(testRar3, rasterType())
}
})
test_that("prepInputs works with nested rar file inside internal rar folder", {
skip_on_cran()
skip_on_ci() ## TODO: skip for now b/c need additional unrar tools
skip_on_os("mac") ## TODO: deal with unrar for macOS #266
testInit("terra", needInternet = TRUE)
extractSystemCallPath <- .archiveExtractBinary()
url <- "https://github.com/tati-micheletti/host/raw/master/data/testRasterNested.rar"
if (is.null(extractSystemCallPath)) {
noisyOutput <- capture.output(
expect_error({
testRar4 <- reproducible::prepInputs(
url = url,
targetFile = "rasterTest.tif",
destinationPath = tmpdir,
useCache = FALSE
)
})
)
} else {
noisyOutput <- capture.output({
testRar4 <- reproducible::prepInputs(
url = url,
targetFile = "rasterTest.tif",
destinationPath = tmpdir,
useCache = FALSE
)
})
expect_true(exists("testRar4"))
expect_is(testRar4, rasterType())
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.