tests/testthat/test_filtr.r

           
context("filtr")           
test_that("filtr is a wrapper for dplyr::select()",{          
           
x = filtr(data1, 1)
y = dplyr::select(data1, 1)
           
expect_identical(x,y)           
           
           
})           
  
merc534/STAT3701-HW3 documentation built on May 25, 2019, 10:30 p.m.