tests/testthat/test-melt_list.R

In kongdd/Ipaper: Collection of personal practical R functions

library(data.table)

test_that("melt_list works", {
    expect_true({
        df <- data.frame(year = 2010, day = 1:2, month = 1, site = "A")
        l  <- list(a = df, b = df)
        melt_list(l, "id")
        melt_list(l, x = c(1, 2))
        melt_list(l, x = c(1, 2), y = c(2, 3))
        
        l2 <- listk("type1" = l, "type2" = l)
        melt_tree(l2, c("type", "id"))
        
        # data.table
        df <- data.table(year = 2010, day = 1:2, month = 1, site = "A")
        l  <- list(a = df, b = df)
        melt_list(l, "id")
        TRUE
    })
})