tests/testthat.R

library(testthat)

std_getwd <- function() 
{
  pwd <- getwd()
  # Enforce upper case Windows drive letters
  substring(pwd, 1, 1) <- toupper(substring(pwd, 1, 1))
  pwd
}

test_check("pathological")

Try the pathological package in your browser

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

pathological documentation built on May 29, 2017, 1:41 p.m.