tests/testthat/test_statistics.R

In SilentSpringInstitute/RStateCancerProfiles: Download data from the U.S. State Cancer Profiles database

test_that("downloading state cancer profiles statistics works", {
  test_that("downloading data doesn't throw a warning", {
    cancer_statistics(statistic = "incidence")
    expect_silent(cancer_statistics(statistic = "incidence"))
    expect_silent(cancer_statistics(statistic = "mortality"))
  })

  test_that("downloading county incidence data for all cancers works", {
    dat <- cancer_statistics(statistic = "incidence", by = "county", cancer = "all")

    expect_equivalent(names(dat), c("county",
                                    "fips",
                                    "incidence_rate",
                                    "incidence_rate_95_confint_lower",
                                    "incidence_rate_95_confint_upper",
                                    "average_annual_count",
                                    "recent_trend_description",
                                    "recent_trend",
                                    "recent_trend_95_confint_lower",
                                    "recent_trend_95_confint_upper",
                                    "statistic",
                                    "cancer",
                                    "sex",
                                    "age",
                                    "race"
    ))

    expect_equal(nrow(dat), 3141)

    expect_equal(dat$county[1], "US (SEER+NPCR)(1,10)")
    expect_equal(dat$fips[1], 0)
    expect_equal(dat$incidence_rate[1], 448.4)
  })

  test_that("downloading county mortality data for all cancers works", {
    dat <- cancer_statistics(statistic = "mortality", by = "county", cancer = "all")

    expect_equivalent(names(dat), c("county",
                                    "fips",
                                    "met_objective",
                                    "mortality_rate",
                                    "mortality_rate_95_confint_lower",
                                    "mortality_rate_95_confint_upper",
                                    "average_deaths_per_year",
                                    "recent_trend",
                                    "recent_5_year_trend",
                                    "recent_trend_95_confint_lower",
                                    "recent_trend_95_confint_upper",
                                    "statistic",
                                    "cancer",
                                    "sex",
                                    "age",
                                    "race"
    ))

    expect_equal(nrow(dat), 3141)

    expect_equal(dat$county[1], "United States")
    expect_equal(dat$fips[1], 0)
    expect_equal(dat$mortality_rate[1], 168.5)
  })

  test_that("downloading county incidence data for a specific cancer works", {
    dat <- cancer_statistics(statistic = "incidence", by = "county", cancer="breast (female)")

    expect_equal(dat$cancer[1], "breast (female)")
    expect_equal(dat$incidence_rate[1], 123.3)
  })

  test_that("downloading county mortality data for a specific cancer works", {
    dat <- cancer_statistics(statistic = "mortality", by = "county", cancer="breast (female)")

    expect_equal(dat$cancer[1], "breast (female)")
    expect_equal(dat$mortality_rate[1], 21.5)
  })
})