tests/testthat/test17_as_xdf.R

In RevolutionAnalytics/dplyrXdf: Tools for working with Microsoft R Server Xdf files and the dplyr package

context("Coerce to Xdf")

mtx <- rxDataStep(mtcars, "mtx.xdf", overwrite=TRUE)
mtc <- RxXdfData("mtc", createCompositeSet=TRUE)
rxDataStep(mtcars, mtc, overwrite=TRUE)

write.csv(mtcars, "mttext.csv", row.names=FALSE)
mtt <- RxTextData("mttext.csv")

verifyData <- function(xdf, expectedClass)
{
    is.data.frame(head(xdf)) && class(xdf) == expectedClass # test for exact class
}

verifyCompositeData <- function(xdf, expectedClass)
{
    isTRUE(xdf@createCompositeSet) && is.data.frame(head(xdf)) && class(xdf) == expectedClass # test for exact class
}


test_that("as_xdf works",
{
    tbl <- as_xdf(mtx, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
    expect_identical(mtx@file, tbl@file)

    tbl <- as_xdf(mtx, file="test17.xdf", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))

    tbl <- as_xdf(mtx, file="test17", composite=TRUE, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
})

test_that("as_standard_xdf works",
{
    tbl <- as_standard_xdf(mtx, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
    expect_identical(mtx@file, tbl@file)

    tbl <- as_standard_xdf(mtx, file="test17.xdf", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
})

test_that("as_composite_xdf works",
{
    tbl <- as_composite_xdf(mtx, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))

    tbl <- as_composite_xdf(mtx, file="test17", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
})

test_that("as_xdf works, composite input",
{
    tbl <- as_xdf(mtc, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
    expect_identical(mtc@file, tbl@file)

    tbl <- as_xdf(mtc, file="test17", overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))

    tbl <- as_xdf(mtc, file="test17.xdf", composite=FALSE, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
})

test_that("as_standard_xdf works, composite input",
{
    tbl <- as_standard_xdf(mtc, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))

    tbl <- as_standard_xdf(mtc, file="test17.xdf", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
})

test_that("as_composite_xdf works, composite input",
{
    tbl <- as_composite_xdf(mtc, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
    expect_identical(mtc@file, tbl@file)

    tbl <- as_composite_xdf(mtc, file="test17", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
})

test_that("as_xdf works, tbl input",
{
    tbl0 <- as(mtx, "tbl_xdf")
    tbl <- as_xdf(tbl0, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
    expect_identical(tbl0@file, tbl@file)

    tbl <- as_xdf(tbl0, "test17.xdf", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))

    tbl <- as_xdf(tbl0, "test17", composite=TRUE, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
})

test_that("as_standard_xdf works, tbl input",
{
    tbl0 <- as(mtx, "tbl_xdf")
    tbl <- as_standard_xdf(tbl0, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
    expect_identical(tbl0@file, tbl@file)

    tbl <- as_standard_xdf(tbl0, "test17.xdf", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
})

test_that("as_composite_xdf works, tbl input",
{
    tbl0 <- as(mtx, "tbl_xdf")
    tbl <- as_composite_xdf(tbl0, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))

    tbl <- as_composite_xdf(tbl0, "test17", overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
})

test_that("as_xdf works, text input",
{
    tbl <- as_xdf(mtt, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))

    tbl <- as_xdf(mtt, "test17.xdf", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))

    tbl <- as_xdf(mtt, "test17", composite=TRUE, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
})

test_that("as_standard_xdf works, text input",
{
    tbl <- as_standard_xdf(mtt, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
})

test_that("as_composite_xdf works, text input",
{
    tbl <- as_composite_xdf(mtt, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
})

test_that("as_xdf works, data frame input",
{
    tbl <- as_xdf(mtcars, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))

    tbl <- as_xdf(mtcars, "test17.xdf", overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))

    tbl <- as_xdf(mtcars, "test17", composite=TRUE, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
})

test_that("as_standard_xdf works, data frame input",
{
    tbl <- as_standard_xdf(mtcars, overwrite=TRUE)
    expect_true(verifyData(tbl, "RxXdfData"))
})

test_that("as_composite_xdf works, data frame input",
{
    tbl <- as_composite_xdf(mtcars, overwrite=TRUE)
    expect_true(verifyCompositeData(tbl, "RxXdfData"))
})


testFiles <- dir(pattern="^file")
unlink(c("mtx.xdf", "mtc", "mtx", "mtc.xdf", "mttext.csv", "mttext", "mttext.xdf", "mtcars.xdf", "mtcars",
         "test17.xdf", "test17", testFiles),
    recursive=TRUE)