tests/testthat/testOne.R

library('replyr')

context("Excercise Operations")

test_that("testOne: Works As Expected", {
  d <- data.frame(x = c(1, 2))
  n <- replyr_nrow(d)
  expect_true(n == 2)
})

Try the replyr package in your browser

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

replyr documentation built on Nov. 1, 2019, 7:49 p.m.