Nothing
context("test-dir2")
test_that("Error handling", {
skip_if_not(identical(.Platform$OS.type, "windows"))
library(data.table)
expect_error(dir2(.dont_use = TRUE),
regexp = "Windows")
expect_error(dir2(path = raw(1)),
regexp = "`path` was a raw, but must be a string",
fixed = TRUE)
expect_error(dir2(path = data.table(x = 1)),
regexp = "`path` was a data.table data.frame, but must be a string",
fixed = TRUE)
expect_error(dir2(path = character(0)),
regexp = "`path` was length 0",
fixed = TRUE)
theDir <- "a"
while (dir.exists(theDir)) {
theDir <- paste0(theDir, "x")
}
skip_if(dir.exists(theDir))
expect_error(dir2(path = theDir),
regexp = "does not exist")
})
test_that("Error handling (non-Windows)", {
skip_on_os("windows")
expect_error(dir2(.dont_use = FALSE),
regexp = "Windows")
})
test_that("dir2 works", {
skip_if_not(identical(.Platform$OS.type, "windows"))
skip_only_on_cran()
tempd <- tempfile()
dir.create(tempd)
file.create(file.path(tempd, "abc.csv"))
file.create(file.path(tempd, "def.csv"))
y <- dir(path = tempd, recursive = FALSE)
z <- dir2(path = tempd, recursive = FALSE)
expect_equal(length(z), length(y))
z <- dir2(path = tempd, file_ext = ".csv")
expect_equal(length(z), 2L)
z <- dir2(path = tempd, file_ext = "*.csv")
expect_equal(length(z), 2L)
z1 <- dir2(path = tempd, file_ext = "*.csv", pattern = "^a")
expect_equal(length(z1), 1L)
zp <- dir2(path = tempd, file_ext = "*.csv", pattern = "^a", perl = TRUE)
expect_equal(length(zp), 1L)
zp <- dir2(path = tempd, file_ext = "*.csv", pattern = "^a", perl = FALSE)
expect_equal(length(zp), 1L)
zfx <- dir2(path = tempd, file_ext = ".csv", pattern = "^a", fixed = TRUE)
expect_equal(length(zfx), 0L)
zic <- dir2(path = tempd, file_ext = ".csv", pattern = "^A", ignore.case = TRUE)
expect_equal(length(zic), 1L)
})
test_that("Nil files", {
skip_if_not(identical(.Platform$OS.type, "windows"))
z <- dir2(file_ext = "*.qqq")
expect_equal(length(z), 0L)
z <- dir2(file_ext = ".qqq")
})
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.