tests/testthat/test-activate.R

test_that("activate function appropriately switches df", {
  expect_equal("FFR",FFbenvo %>% activate(FFR) %>% active(.))
  expect_equal("subject",FFbenvo %>%
                 activate(FFR) %>%
                 activate(subject) %>% active(.))
})
apeterson91/rbenvo documentation built on Dec. 2, 2020, 6:17 p.m.