tests/testthat/test_data_manipulation.R

In schmettow/mascutils: Various utility functions of Martin Schmettow

library(testthat)
library(mascutils)

context("data manipulation functions")

load("D.Rda")

test_that("go_first",{
  d <- data_frame(x = 1:2, y = c(NA,NA), z = c(NA,4))
  expect_equal(colnames(go_first(d, ~z))[1], "z")
})

test_that("discard_all_na",{
  d <- data_frame(x = 1:2, y = c(NA,NA), z = c(NA,4))
  expect_equal(colnames(discard_all_na(d)), c("x", "z"))
})

dplyr::data_frame(a = c(1:5),
                  b = c(6:10)) %>%
  mascutils::z_score("a") %>%
  mascutils::z_score("b")