tests/testthat/test_viewer.R

In ipumsr: An R Interface for Downloading, Reading, and Handling IPUMS Data

test_that("normal ddi doesn't error", {
  skip_if_not_installed("htmltools")
  skip_if_not_installed("shiny")
  skip_if_not_installed("DT")
  ddi <- read_ipums_ddi(ipums_example("cps_00157.xml"))
  expect_warning(
    html_file <- ipums_view(ddi, launch = FALSE)
  )
  expect_true(grepl(".html$", html_file))
})

test_that("empty ddi doesn't error", {
  skip_if_not_installed("htmltools")
  skip_if_not_installed("shiny")
  skip_if_not_installed("DT")
  ddi <- new_ipums_ddi()
  expect_warning(
    html_file <- ipums_view(ddi, launch = FALSE)
  )
  expect_true(grepl(".html$", html_file))
})

test_that("normal microdata doesn't error", {
  skip_if_not_installed("htmltools")
  skip_if_not_installed("shiny")
  skip_if_not_installed("DT")
  data <- read_ipums_micro(ipums_example("cps_00157.xml"), verbose = FALSE)
  expect_warning(
    html_file <- ipums_view(data, launch = FALSE)
  )
  expect_true(grepl(".html$", html_file))
})

test_that("attribute-less microdata doesn't error", {
  skip_if_not_installed("htmltools")
  skip_if_not_installed("shiny")
  skip_if_not_installed("DT")
  data <- read_ipums_micro(
    ipums_example("cps_00157.xml"),
    verbose = FALSE, var_attrs = NULL
  )
  expect_warning(
    html_file <- ipums_view(data, launch = FALSE)
  )
  expect_true(grepl(".html$", html_file))
})

test_that("nhgis codebook doesn't error", {
  skip_if_not_installed("htmltools")
  skip_if_not_installed("shiny")
  skip_if_not_installed("DT")
  cb <- read_nhgis_codebook(ipums_example("nhgis0972_csv.zip"))
  expect_warning(
    html_file <- ipums_view(cb, launch = FALSE)
  )
  expect_true(grepl(".html$", html_file))
})