Nothing
context("Errors")
library("datasets")
test_that("Function suggestions for unsupported export", {
expect_error(export(data.frame(1), "test.jpg"),
"jpg format not supported. Consider using the 'jpeg::writeJPEG()' function",
fixed = TRUE)
})
test_that("Error for unsupported file types", {
writeLines("123", con = "test.faketype")
expect_error(import("test.faketype"), "Format not supported")
expect_error(export(mtcars, "mtcars.faketype"), "Format not supported")
expect_equal(.standardize_format("faketype"), "faketype")
expect_error(get_ext("noextension"), "'file' has no extension")
unlink("test.faketype")
})
test_that("Error for mixed support file types", {
expect_error(import("test.por"), "No such file")
expect_error(export(mtcars, "mtcars.por"), "Format not supported")
expect_error(export(mtcars, "mtcars.faketype"), "Format not supported")
})
test_that("Only export data.frame or matrix", {
expect_error(export(1, "test.csv"), "'x' is not a data.frame or matrix")
})
test_that("Column widths printed for fixed-width format", {
expect_true(is.character(export(data.frame(1), "test.txt", format = "fwf", verbose = FALSE)))
expect_message(export(data.frame(1), "test.txt", format = "fwf", verbose = TRUE))
unlink("test.txt")
})
test_that("Warning for import_list() with missing file", {
expect_warning(import_list("fake_file.csv"))
})
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.