Nothing
source("sample-data.r")
context("Demo method")
# Test a single name
single <- gender("Madison", method = "demo", years = c(2000, 2001))
# Test multiple names with different years
multiple_diff <- Map(gender, sample_names_data, sample_years_ssa,
method = "demo") %>%
do.call(rbind.data.frame, .)
test_that("a single name can be encoded", {
# Madison was female in the SSA period
expect_that(single$gender, equals("female"))
})
test_that("a single name returns a list with the name, gender, and proportions", {
expect_is(single, "data.frame")
expect_that(length(single), equals(6))
expect_that(names(single), equals(c("name", "proportion_male",
"proportion_female", "gender",
"year_min", "year_max")))
})
test_that("the returned list has items with the correct types", {
expect_is(single$name, "character")
expect_is(single$proportion_female, "numeric")
expect_is(single$proportion_male, "numeric")
expect_is(single$gender, "character")
expect_is(single$year_min, "numeric")
expect_is(single$year_max, "numeric")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.