testthat/test-datascript.R

library(testthat)
context("checks that datascript is working")

test_that("printed value is correct", {
  
  expect_output(str(source("../datascript.R")), 
                   "Have this script run whatever data cleaning you do")

})
RushingLab/BandingData documentation built on Oct. 30, 2019, 11:05 p.m.