tests/testthat/test-interactive_map.R

In KDallaporta/CapstoneProject:

context("Interactive maps")

test_that("eq_create_label returns a character", {
  expect_that(
    head(
      eq_create_label(
        eq_clean_data()),1), testthat::is_a("character"))
})

test_that("eq_map returns a leaflet map", {
  expect_that(
    eq_map(head(
        eq_clean_data()),5), testthat::is_a("leaflet"))
})