tests/testthat/test-phenotypes_byid.R

In rsnps: Get 'SNP' ('Single-Nucleotide' 'Polymorphism') Data on the Web

# tests for phenotypes_byid fxn in ropensnp
context("phenotypes_byid")

test_that("phenotypes_byid returns the correct class", {
	skip_on_cran()

	one <- suppressMessages(phenotypes_byid(phenotypeid=12, return_ = 'users'))

	expect_is(one, "data.frame")
	expect_is(suppressMessages(phenotypes_byid(phenotypeid=12, return_ = 'desc')),
		"list")
	expect_equal(NCOL(one), 2)
	expect_equal(
		suppressMessages(
			phenotypes_byid(
				phenotypeid=12, return_ = 'knownvars'))$known_variations[1:2],
							list("Red","Blonde"))
})