inst/tinytest/test_take_all.R

In maditr: Fast Data Aggregation, Modification, and Filtering with Pipes and 'data.table'

cat("\nContext:","take_all", "\n")


data(iris)
data(mtcars)
dt_iris = as.data.table(iris)
expect_equal(
    take_all(iris, if(is.numeric(.x)) mean(.x)),
    dt_iris[,lapply(.SD, mean), .SDcols = -5]
)

expect_equal(
    take_all(iris, if(.index<5) mean(.value)),
    dt_iris[,lapply(.SD, mean), .SDcols = -5]
)
expect_equal(
    take_all(iris, mean, by = Species),
    dt_iris[,lapply(.SD, mean), by = Species]
)

expect_equal(
    take_all(iris, if(is.numeric(.x)) scale(.x)),
    dt_iris[,lapply(.SD, scale), .SDcols = -5]
)

expect_equal(
    take_all(dt_iris, mean, sd, by = Species, suffix = FALSE),
    dt_iris[,c(
        setNames(
        lapply(.SD, mean),
        paste0("mean_", colnames(.SD))
        ),
        setNames(
            lapply(.SD, sd),
            paste0("sd_", colnames(.SD))
        )), by = Species]
)


expect_equal(
    take_all(dt_iris, mean, sd, by = Species),
    dt_iris[,c(
        setNames(
            lapply(.SD, mean),
            paste0(colnames(.SD), "_mean")
        ),
        setNames(
            lapply(.SD, sd),
            paste0(colnames(.SD), "_sd")
        )), by = Species]
)


expect_equal(
    take_all(dt_iris, mean, sd, by = Species, sep = "."),
    dt_iris[,c(
        setNames(
            lapply(.SD, mean),
            paste0(colnames(.SD), ".mean")
        ),
        setNames(
            lapply(.SD, sd),
            paste0(colnames(.SD), ".sd")
        )), by = Species]
)

expect_equal(
    take_all(dt_iris, mean, sd, by = Species, sep = "", suffix = FALSE),
    dt_iris[,c(
        setNames(
            lapply(.SD, mean),
            paste0("mean", colnames(.SD))
        ),
        setNames(
            lapply(.SD, sd),
            paste0("sd", colnames(.SD))
        )), by = Species]
)

expect_equal(
    take_all(iris, stat = mean, by = Species, suffix = FALSE),
    {
        res = dt_iris[,lapply(.SD, mean), by = Species]
        names(res)[-1] = paste0("stat_", names(res)[-1])
        res
    }
)

expect_equal(
    take_all(iris, stat = function(x) 2*mean(x), by = Species, suffix = FALSE),
    {
        res = dt_iris[,lapply(.SD, function(x) 2*mean(x)), by = Species]
        names(res)[-1] = paste0("stat_", names(res)[-1])
        res
    }
)


expect_equal(
    take_all(iris, mean = mean, by = Species, i = Species!="setosa", suffix = TRUE),
    {
        res = dt_iris[Species!="setosa", lapply(.SD, mean), by = Species]
        names(res)[-1] = paste0(names(res)[-1], "_mean")
        res
    }
)

expect_equal(
    take_all(iris, "mean" = mean, by = Species, suffix = FALSE, .SDcols = -(1:2)),
    {
        res = dt_iris[,lapply(.SD, mean), by = Species, .SDcols = -(1:2)]
        names(res)[-1] = paste0("mean_", names(res)[-1])
        res
    }
)

expect_equal(
    take_all(iris, "mean" = mean, keyby = Species, suffix = FALSE, .SDcols = -(1:2)),
    {
        res = dt_iris[,lapply(.SD, mean), keyby = Species, .SDcols = -(1:2)]
        names(res)[-1] = paste0("mean_", names(res)[-1])
        res
    }
)


expect_equal(
    take_all(iris,
             if(startsWith(.name, "Sepal")) mean(.value),
             if(startsWith(.name, "Petal")) uniqueN(.value),
             by = Species),
    {
        dt_iris[,c(
                lapply(.SD[,.(Sepal.Length, Sepal.Width)], mean),
                lapply(.SD[,.(Petal.Length, Petal.Width)], uniqueN)
        ),
                 by = Species]
    }
)

expect_equal(
    take_all(iris,
             if(.index %in% 1:2) mean(.x),
             if(.index %in% 3:4) uniqueN(.x),
             by = Species),
    {
        dt_iris[,c(
            lapply(.SD[,.(Sepal.Length, Sepal.Width)], mean),
            lapply(.SD[,.(Petal.Length, Petal.Width)], uniqueN)
        ),
        by = Species]
    }
)

data(iris)
dt_iris = as.data.table(iris)
my_fun = function(x){
    if(is.numeric(x)){
        mean(x)
    } else {
        NULL
    }
}

expect_equal(
    take_all(iris, mean = my_fun),
    dt_iris[,setNames(lapply(.SD, mean), paste0(names(dt_iris)[-5], "_mean")), .SDcols = -"Species"]
)

dt_iris = as.data.table(iris)
expect_equal(
    take_all(iris, mean = function(x){
        if(is.numeric(x)){
            mean(x)
        } else {
            NULL
        }
    }),
    dt_iris[,setNames(lapply(.SD, mean), paste0(names(dt_iris)[-5], "_mean")), .SDcols = -"Species"]
)

dt_iris = as.data.table(iris)
expect_equal(
    take_all(iris, mean = mean, .SDcols = -"Species"),
    dt_iris[,setNames(lapply(.SD, mean), paste0(names(dt_iris)[-5], "_mean")), .SDcols = -"Species"]
)