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(.))
})

Try the rbenvo package in your browser

Any scripts or data that you put into this service are public.

rbenvo documentation built on Nov. 18, 2020, 5:07 p.m.