tests/testthat/testDataSet.r

In schnecki/ranalyse: R-Analyse

test_that("DataSet initialize()", {
    x <- c(1:10)
    y <- map(function(x) x ^ (1 / 2), x)
    DataSet("test data set", )
    ## dat <- readRDS("../data/cleaned_base_LPGC.rds")[1:100, ]
    ## dates <- as.Date(c("2022-06-18", "2022-03-13"))
    ## y <- c(1.2, 12)
    ## name <- "test dates"
    ## var <- VariableDate$new(name, dates)
    ## expect_equal(var$vals, dates)
    ## ## expect_equal(var$y, y)
    ## expect_equal(var$name, name)
    ## ## expect_error(VariableDate$new(rhaskell::take(1, dates), y, name))
    ## expect_error(VariableDate$new(dates, name))
})