#' Copyright(c) 2017-2020 R. Mark Sharp
# This file is part of nprcgenekeepr
context("headerDisplayNames")
library(testthat)
test_that("headerDisplayNames makes the correct mapping", {
expect_equal(headerDisplayNames(c("id", "sire", "dam", "gen")),
c("Ego ID", "Sire ID", "Dam ID", "Generation #"))
expect_equal(headerDisplayNames(c("spf", "second_name", "value")),
c("SPF", "Second Allele", "Value Designation"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.