tests/testthat/test_fixGenotypeCols.R

In nprcgenekeepr: Genetic Tools for Colony Management

#' Copyright(c) 2017-2024 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("fixGenotypeCols")
library(stringi)
test_that("fixGenotypeCols correct column names correctly", {
  genotype <- data.frame(
    id = stri_c(2500L + 1L:20L),
    first_name = stri_c("A", 10000L + 1L:20L),
    second_name = stri_c("second_name", 1L:20L),
    stringsAsFactors = FALSE
  )
  ped <- fixGenotypeCols(genotype)
  expect_named(ped, c("id", "first_name", "second_name"))
  genotype <- data.frame(
    id = stri_c(2500L + 1L:20L),
    firstname = stri_c("A", 10000L + 1L:20L),
    second_name = stri_c("second_name", 1L:20L),
    stringsAsFactors = FALSE
  )
  ped <- fixGenotypeCols(genotype)
  expect_identical(names(ped), c("id", "first_name", "second_name"))
  genotype <- data.frame(
    id = stri_c(2500L + 1L:20L),
    first_name = stri_c("A", 10000L + 1L:20L),
    secondname = stri_c("second_name", 1L:20L),
    stringsAsFactors = FALSE
  )
  ped <- fixGenotypeCols(genotype)
  expect_identical(names(ped), c("id", "first_name", "second_name"))
  genotype <- data.frame(
    id = stri_c(2500L + 1L:20L),
    firstname = stri_c("A", 10000L + 1L:20L),
    secondname = stri_c("second_name", 1L:20L),
    stringsAsFactors = FALSE
  )
  ped <- fixGenotypeCols(genotype)
  expect_named(ped, c("id", "first_name", "second_name"))
})