tests/testthat/test_gender.R

context("Gender of names")

# test_that("lists of genders work properly", {
#   name_list <- c("Brandi E Smithers", "Rich", "Sean Bean", "Gamboree", "Casey")
#   expected <- c("female", "male", "male", "not listed", "both")
# #   name_list <- c("Brandi")
# #   expected <- c("female")
#   print(determine_genders(name_list))
#   for(n in 1:length(expected)){
#     expect_equal(determine_genders(name_list)[[n]], expected[n])
#   }
# })
PhilBrockman/WilliamsStaff documentation built on May 8, 2019, 1:33 a.m.