Nothing
library("datasets")
test_that("export_list() works", {
withr::with_tempdir({
export(list(
mtcars3 = mtcars[1:10, ],
mtcars2 = mtcars[11:20, ],
mtcars1 = mtcars[21:32, ]
), "mtcars.xlsx")
mylist <- import_list("mtcars.xlsx")
expect_error(export_list(mtcars), label = "export_list() fails on exporting single data frame")
expect_error(export_list(mylist, file = NULL), label = "export_list() fails when file is NULL")
expect_true(identical(export_list(mylist, file = paste0("mtcars_", 3:1, ".csv")), paste0("mtcars_", 3:1, ".csv")))
expect_true(identical(export_list(mylist, file = "%s.csv"), paste0("mtcars", 3:1, ".csv")))
expect_true(identical(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "archive.zip"), "archive.zip"))
expect_true(identical(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "arch/archive.zip"), "arch/archive.zip"))
expect_true(all.equal(mylist[["mtcars1"]], import("mtcars1.csv")))
expect_true(all.equal(mylist[["mtcars2"]], import("mtcars2.csv")))
expect_true(all.equal(mylist[["mtcars3"]], import("mtcars3.csv")))
names(mylist) <- NULL
expect_true(identical(export_list(mylist, file = "mtcars_%s.csv"), paste0("mtcars_", 1:3, ".csv")))
names(mylist) <- c("a", "", "c")
expect_error(export_list(mylist), label = "export_list() fails without 'file' argument")
expect_error(export_list(mylist, file = "%.csv"), label = "export_list() fails without missing names")
expect_error(export_list(mylist, file = c("a.csv", "b.csv")), label = "export_list() fails with mismatched argument lengths")
names(mylist) <- c("a", "a", "c")
expect_error(export_list(mylist, file = "mtcars_%s.csv"), label = "export_list() fails with duplicated data frame names")
expect_error(export_list(mylist, file = c("mtcars1.csv", "mtcars1.csv", "mtcars3.csv")), label = "export_list() fails with duplicated data frame names")
})
})
test_that("archive formats, #415", {
skip_if(getRversion() <= "4.0")
withr::with_tempdir({
mylist <- list(mtcars3 = mtcars[1:10, ], mtcars2 = mtcars[11:20, ], mtcars1 = mtcars[21:32, ])
expect_error(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "archive.csv.gz"), "specified but format is not supported")
expect_error(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "archive.csv.bz2"), "specified but format is not supported")
expect_error(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "archive.csv.zip"), NA)
expect_error(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "archive.csv.tar"), NA)
expect_error(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "archive.csv.tar.gz"), NA)
expect_error(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "archive.csv.tar.bz2"), NA)
})
})
test_that("List length of one, #385", {
withr::with_tempdir({
example1 <- list("iris" = iris)
tempfile <- tempfile(fileext = ".csv")
expect_error(export(example1, tempfile), NA)
tempfile <- tempfile(fileext = ".xlsx")
expect_error(export(example1, tempfile), NA)
expect_equal(readxl::excel_sheets(tempfile), "iris") ## name is retained
tempfile <- tempfile(fileext = ".rds")
expect_error(export(example1, tempfile), NA)
expect_true(is.list(readRDS(tempfile)) && !is.data.frame(readRDS(tempfile)))
})
})
test_that("tar export error for R < 4.0.3", {
skip_if(getRversion() >= "4.0.3")
withr::with_tempdir({
mylist <- list(mtcars3 = mtcars[1:10, ], mtcars2 = mtcars[11:20, ], mtcars1 = mtcars[21:32, ])
expect_error(export_list(mylist, file = paste0("file_", 1:3, ".csv"), archive = "archive.csv.tar"), "^Exporting")
})
})
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.