tests/testthat/test-downloadxlsx.R

In NumbersInternational/flipAPI: Web APIs tools

library(testthat)

context("Parsing Excel files")

test_that("read_xlsx",
{
    capture.output(numAndFactor <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/numeric-and-factor.xlsx?raw=true", want.data.frame = TRUE), type="message")
    expect_equal("data.frame" %in% class(numAndFactor), TRUE)
    expect_equal(colnames(numAndFactor), c("...1", "Age", "Region"))
    expect_equal(unname(sapply(numAndFactor, class)), c("factor", "numeric", "factor"))

    expect_silent(capture.output(numAndStr <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/numeric-and-factor.xlsx?raw=true"), type="message"))
    expect_equal(dimnames(numAndStr)[[1L]], LETTERS[1:5])
    expect_equal(dimnames(numAndStr)[[2L]], c("Age", "Region"))
    expect_equal(dim(numAndStr), c(5, 2))
    expect_equal(class(numAndStr), "data.frame")
    expect_equal(is.numeric(numAndStr), FALSE)

    capture.output(num2d <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/numeric-with-headers.xlsx?raw=true"), type="message")
    expect_is(num2d, "matrix")
    expect_equal(is.numeric(num2d), TRUE)
    expect_equal(dim(num2d), c(10, 6))
    expect_equal(rownames(num2d)[1], "2017-05-31")
    expect_equal(colnames(num2d)[1], "Pre-breakfast")

    capture.output(numAndDate <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/numeric-with-headers.xlsx?raw=true", want.data.frame = TRUE), type="message")
    expect_equal(class(numAndDate[,2]), "numeric")

    capture.output(sheet2 <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/numeric-no-headers.xlsx?raw=true", sheet = 2), type="message")
    expect_equal(dim(sheet2), c(6, 1))
    expect_equal(is.numeric(sheet2), TRUE)

    expect_error(capture.output(sheet3 <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/numeric-no-headers.xlsx?raw=true", sheet = 3), type="message"))

    expect_silent(capture.output(characters <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/characters.xlsx?raw=true"), type="message"))
    expect_equal(is.numeric(characters), FALSE)
    expect_equal(dim(characters), c(3, 3))
    expect_equal(dimnames(characters)[[1L]], paste0("R", 1:3))
    expect_equal(dimnames(characters)[[2L]], paste0("C", 1:3))

    capture.output(percentages <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/percentages.xlsx?raw=true"), type="message")
    expect_equal(is.numeric(percentages), TRUE)
    expect_equal(length(percentages), 6)
    expect_equal(dimnames(percentages), NULL)
    expect_equal(sum(percentages < 1), 6)

    expect_silent(cola1 <- DownloadXLSX("https://wiki.q-researchsoftware.com/images/b/b9/Cola_Discriminant_Functions.xlsx", range="A2:G9"))
    expect_is(cola1, "matrix")
    expect_equal(dim(cola1), c(7, 6))
    expect_silent(cola2 <- DownloadXLSX("https://wiki.q-researchsoftware.com/images/b/b9/Cola_Discriminant_Functions.xlsx", want.data.frame = TRUE, want.col.names = TRUE, want.row.names = FALSE, sheet=2, range="AB2:AC330"))
    expect_equal(class(cola2), "data.frame")
    expect_equal(dim(cola2), c(328, 2))

    capture.output(xlsRemovedHeader <- DownloadXLSX("https://github.com/Displayr/flipAPI/blob/master/tests/testthat/xlsxfiles/xls-with-header.xls?raw=true", skip = 15), type="message")
    expect_equal("data.frame" %in% class(xlsRemovedHeader), TRUE)
    expect_equal(all(dim(xlsRemovedHeader) == c(240, 9)), TRUE)

})