context("Testing parsing functions")
library(relater)
#test_that("parsing haps files",{
# haps <- read.haps(system.file("extdata", "example.haps.gz", package = "relater", mustWork = T))
#Check requirements for haps for Relate
#expect_equal(length("abc"), 3)
# print(head(haps))
#})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.