Nothing
test_that("Export to and import from SAS (.xpt)", {
withr::with_tempfile("mtcars_file", fileext = ".xpt", code = {
export(mtcars, mtcars_file)
expect_true(file.exists(mtcars_file))
expect_true(is.data.frame(import(mtcars_file)))
})
})
test_that("Export SAS (.sas7bdat)", {
withr::with_tempfile("mtcars_file", fileext = ".sas7bdat", code = {
suppressWarnings(export(mtcars, mtcars_file))
expect_true(file.exists(mtcars_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.