tests/testthat/test-dplyr.R

In aelhabr/teutils: Tony's Personal Package

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)


})