tests/testthat/test_read.R

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# DNAshapeR Unit testing
# 2015 
# Tsu-Pei Chiu, Rohs Lab, USC
# Federico Comoglio, Green lab, CIMR
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

fn <- system.file( 'extdata', 'SingleSeqsample.fa.MGW', package = 'DNAshapeR' )
mgw <- readShape(fn)
expect_equal( length(mgw), 24 )

Try the DNAshapeR package in your browser

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

DNAshapeR documentation built on Nov. 8, 2020, 8:04 p.m.