tests/testthat/test-genotypes.R

context("genotypes")

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

	one <- suppressMessages(genotypes('rs9939609', userid='1,6,8', df=TRUE))

	expect_that(one, is_a("data.frame"))
	expect_equal(NROW(one), 3)
	expect_match(as.character(one[2,4]), "Nash Parovoz")
})

Try the rsnps package in your browser

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

rsnps documentation built on Jan. 28, 2022, 5:07 p.m.