tests/testthat/test-phenotypingTemplate.R

context('phenotypingTemplate')

test_that("phenotypingTemplate works", {
  temp <- tempdir()
  phenotypingTemplate(path = temp)
  
  expect_true(file.exists(str_c(temp,'phenotyping_template.xlsx',sep = '/')))
})

Try the pdi package in your browser

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

pdi documentation built on Feb. 10, 2021, 1:08 a.m.