context("dplyr-related functions")
test_that("compute_rank", {
actual <- compute_rank(mtcars, col_val = "mpg", col_rank = "rank")
expect_true(names(actual[1]) == "rank")
expect_true(actual["mpg"][1, 1] == max(actual[,"mpg"]))
})
# Using expect_equal() instead of expect_identical() to avoid numeric/integer type issues.
test_that("compute_summary", {
expect_df <- mtcars
actual_df <- compute_summary(mtcars, col_val = "mpg")
expect <- mean(expect_df$mpg)
actual <- c(as.matrix(actual_df["mean"]))
expect_equal(actual, expect)
expect <- 2
actual_df <- compute_summary(mtcars, col_val = "mpg", tidy = TRUE, colname_stat = "metric")
actual <- ncol(actual_df)
expect_equal(actual, expect)
expect <- "metric"
actual <- names(actual_df)[1]
expect_equal(actual, expect)
expect <- 3
actual_df <- compute_summary(mtcars, col_val = "mpg", cols_group = "cyl", tidy = TRUE)
actual <- ncol(actual_df)
actual_df <- compute_summary(mtcars, col_val = "mpg", cols_group = c("cyl", "gear"), tidy = TRUE)
expect <- 4
actual <- ncol(actual_df)
expect_equal(actual, expect)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.