Nothing
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")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.