library(tidyverse)
library(dbr)
library(testthat)
context("SECTOR ROLLUP")
test_that("SECTOR ROLLED UP CORRECTLY", {
w <- wicher::wiche_enrollments
d <- w %>% filter(location == "al",
year == 2012,
sector %in% c("all","p","np"),
race == "all",
grade == "g")
expect_equal(d$n, c(50263,45394,4869))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.