tests/testthat/testApplication.R

test_that("basic run", {
    app <- CustomApplicationExample$new(KBC_DATA_DIR)
    app$run()

    # verify the results
    dfResult <- read.csv(file = file.path(KBC_DATA_DIR, 'out/tables/results.csv'), stringsAsFactors = FALSE)
    expect_equal(50, nrow(dfResult))
    expect_equal(14, ncol(dfResult))
})
keboola/r-custom-application-example-package documentation built on May 18, 2017, 6:33 p.m.