tests/testthat/test_export_list.R

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")
    })
})

Try the rio package in your browser

Any scripts or data that you put into this service are public.

rio documentation built on June 22, 2024, 9:48 a.m.