source("helper/helper.R") if (exists("list2DF", envir = baseenv())) { f = get("list2DF", envir = baseenv()) expect_same = makeCompareFun(f, backports:::list2DF) x <- list(c("A", "B"), c("B", "C")) n <- lengths(x) expect_same(list(x = x, n = n)) ## Create data frames with no variables and the desired number of rows: expect_same() expect_same(nrow = 3L) }
Generated by dwww version 1.15 on Wed Jun 26 02:29:22 CEST 2024.