tests/testthat/test-get.R

In btskinner/rscorecard: A Method to Download Department of Education College Scorecard Data

context("sc_get")

test_that("Errors for non-init()", {
  expect_error(sc_get(),
               "Chain not properly initialized. Be sure to start with sc_init().")
})

test_that("Errors for missing sc_select()", {
  expect_error(sc_init() |> sc_filter(unitid == 999999) |> sc_get(),
               "No variables selected. Use sc_select() to choose variables.",
               fixed = TRUE)
})

## not on CRAN -----------------------------------

test_that("Request doesn\"t match expected", {
  check_api()

  df1 <- dplyr::tibble("unitid" = 196051L, "year" = 2013)

  df2 <- sc_init() |>
    sc_filter(region == 2, ccbasic == 23, locale == 41:43) |>
    sc_select(unitid) |>
    sc_year(2013) |>
    sc_get()

  expect_equal(df1, df2)

})

test_that("Debug doesn\"t return string", {
  check_api()

  out <- sc_init() |>
    sc_filter(region == 2, ccbasic == 21, locale == 41) |>
    sc_select(unitid) |>
    sc_year(2013) |>
    sc_get(debug = TRUE)

  call <- "https://api.data.gov/ed/collegescorecard/v1/" %+%
    "schools.json?school.region_id=2&school.carnegie_basic" %+%
    "=21&school.locale=41&_fields=id&_page=0&_per_page=100&" %+%
    "api_key=<...HIDDEN...>"

  expect_equal(out, call)
})


test_that("Doesn\"t return correct string using latest", {
  check_api()

  out1 <- sc_init() |>
    sc_filter(region == 2, ccbasic == 21, locale == 41) |>
    sc_select(unitid, ugds_white, ugds_black, ugds_asian) |>
    sc_get(debug = TRUE)

  out2 <- sc_init() |>
    sc_filter(region == 2, ccbasic == 21, locale == 41) |>
    sc_select(unitid, ugds_white, ugds_black, ugds_asian) |>
    sc_year("latest") |>
    sc_get(debug = TRUE)

  call <- "https://api.data.gov/ed/collegescorecard/v1/" %+%
    "schools.json?school.region_id=2&school.carnegie_basic=21" %+%
    "&school.locale=41&_fields=id,latest.student.demographics." %+%
    "race_ethnicity.white,latest.student.demographics.race_ethnicity." %+%
    "black,latest.student.demographics.race_ethnicity.asian&_page=0" %+%
    "&_per_page=100&api_key=<...HIDDEN...>"

  expect_equal(out1, out2)
  expect_equal(out1, call)
  expect_equal(out2, call)
})