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])
# }
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.