tests/testthat/test_append_2_prepend.R

In samuelkaminsky/SKTools: SK's Tools

library(SKTools)
# library(dplyr)

context("append_2_prepend")

test_that("append_2_prepend works for mtcars", {
  expect_equal(
    {
      mtcars %>%
        dplyr::mutate_all(list(mean = ~ mean(., na.rm = TRUE))) %>%
        SKTools::append_2_prepend("mean") %>%
        names() %>%
        .[21]
    },
    "mean_gear"
  )
})