Nothing
test_that("Export to and import from Rdata", {
withr::with_tempfile("iris_file", fileext = ".Rdata", code = {
## data frame
export(iris, iris_file)
expect_true(file.exists(iris_file))
expect_true(is.data.frame(import(iris_file, trust = TRUE)))
expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE)))
})
withr::with_tempfile("iris_file", fileext = ".Rdata", code = {
## environment
e <- new.env()
e$iris <- iris
export(e, iris_file)
expect_true(file.exists(iris_file))
expect_true(is.data.frame(import(iris_file, trust = TRUE)))
expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE)))
})
withr::with_tempfile("iris_file", fileext = ".Rdata", code = {
## character
export("iris", iris_file)
expect_true(file.exists(iris_file))
expect_true(is.data.frame(import(iris_file, trust = TRUE)))
expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE)))
})
withr::with_tempfile("iris_file", fileext = ".Rdata", code = {
## expect error otherwise
expect_error(export(iris$Species, iris_file))
})
})
test_that("Export to and import from rda", {
withr::with_tempfile("iris_file", fileext = ".rda", code = {
## data frame
export(iris, iris_file)
expect_true(file.exists(iris_file))
expect_true(is.data.frame(import(iris_file, trust = TRUE)))
expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE)))
})
withr::with_tempfile("iris_file", fileext = ".rda", code = {
## environment
e <- new.env()
e$iris <- iris
export(e, iris_file)
expect_true(file.exists(iris_file))
expect_true(is.data.frame(import(iris_file, trust = TRUE)))
expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE)))
})
withr::with_tempfile("iris_file", fileext = ".rda", code = {
## character
export("iris", iris_file)
expect_true(file.exists(iris_file))
expect_true(is.data.frame(import(iris_file, trust = TRUE)))
expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE)))
})
withr::with_tempfile("iris_file", fileext = ".rda", code = {
## expect error otherwise
expect_error(export(iris$Species, iris_file))
})
})
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.