tests/testthat/test-melt_list.R

In phenofit: Extract Remote Sensing Vegetation Phenology

context("test-melt_list")

test_that("melt_list works", {
    expect_silent({
        # data.frame
        df <- data.frame(year = 2010, day = 1:3, month = 1, site = "A")
        l  <- list(a = df, b = df)
        df_new <- melt_list(l, "id")

        # data.table
        df <- data.table(year = 2010, day = 1:3, month = 1, site = "A")
        l  <- list(a = df, b = df)
        df_new <- melt_list(l, "id")
    })
})