Nothing
context("access")
# Clean testdata directory
if (!file.exists("testdata")) {
dir.create("testdata")
} else {
file.remove(list.files("testdata", full.names = TRUE))
}
test_that("Reading non-existent file gives an error", {
expect_error(fstreadproxy("AccessStore/non-existent.fst"))
})
test_that("Writing to incorrect path gives an error", {
expect_error(fstwriteproxy(data.frame(A = 1:10), "AccessStore/A/non-existent.fst"))
})
test_that("Columns need to be of type character", {
fstwriteproxy(data.frame(A = 1:10), "testdata/bla.fst")
expect_error(fstreadproxy("testdata/bla.fst", 2), "Parameter 'columns' should be a character vector of column names")
})
test_that("Columns need to be of type character", {
expect_error(fstreadproxy("testdata/bla.fst", to = c(1, 2)), "Parameter 'to' should have a numerical value")
})
test_that("Old read and write interface still functional", {
x <- fstreadproxy("testdata/bla.fst")
y <- read.fst("testdata/bla.fst")
write.fst(y, "testdata/bla.fst")
expect_identical(x, y)
})
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.