context("test charts")
library(testthat)
library(mxmaps)
#test_package("mxmaps")
test_that("state choropleth matches expectations",{
data("df_mxstate_2020")
df_mxstate_2020$value = df_mxstate_2020$pop
p <- mxstate_choropleth(df_mxstate_2020, num_colors = 1)
expect_is(p$layers[[1]], "ggproto")
expect_identical(sort(unique(p$data$id)), sort(df_mxstate_2020$region))
expect_identical(p$labels$y, "lat")
expect_identical(p$labels$x, "long")
})
test_that("municipio choropleth matches expectations",{
data("df_mxmunicipio_2020")
df_mxmunicipio_2020$value = df_mxmunicipio_2020$pop
p <- mxmunicipio_choropleth(df_mxmunicipio_2020, num_colors = 1)
expect_is(p$layers[[1]], "ggproto")
expect_identical(sort(unique(p$data$id)), sort(df_mxmunicipio_2020$region))
expect_identical(p$labels$y, "lat")
expect_identical(p$labels$x, "long")
})
test_that("hexbin matches expectations",{
data("df_mxstate")
df_mxstate_2020$value = df_mxstate_2020$pop
p <- mxhexbin_choropleth(df_mxstate_2020)
expect_is(p$layers[[1]], "ggproto")
expect_identical(sort(unique(p$data$id)), sort(df_mxstate_2020$region))
expect_identical(p$labels$y, "lat")
expect_identical(p$labels$x, "long")
})
test_that("convert state codes to INEGI format",{
expect_identical(str_mxstate(c("01", "02")), c("01", "02"))
expect_identical(str_mxstate(c("12", "2")), c("12", "02"))
expect_identical(str_mxstate(c(32, 5)), c("32", "05"))
expect_warning(str_mxstate(c(92, 5)), "Invalid state codes detected")
})
test_that("convert municipio codes to INEGI format",{
expect_identical(str_mxmunicipio(c("01006", "02003")), c("01006", "02003"))
expect_identical(str_mxmunicipio(c("12", "2"), c("09", "4")), c("12009", "02004"))
expect_identical(str_mxmunicipio(c(32, 5), c(9, 18)), c("32009", "05018"))
expect_warning(str_mxmunicipio(c(32, 5), c(79, 18)), "Invalid codes detected")
expect_warning(str_mxmunicipio(c("01096", "02003")), "Invalid codes detected")
})
test_that("zoom works in", {
df = df_mxmunicipio_2020
df$value = df$pop
p <- mxmunicipio_choropleth(df,
num_colors = 1,
zoom = c(9002:9010))
expect_is(p$layers[[1]], "ggproto")
})
# test_that("INEGI choropleths match expectations",{
# # Insert your INEGI token here:
# token <- ""
# data("df_mxmunicipio")
# df_mxmunicipio$value = df_mxmunicipio$pop
# mxc_regions <- subset(df_mxmunicipio, metro_area == "Valle de México")$region
# p <- choropleth_inegi(token, mxc_regions, "1006000044", silent = TRUE)
# expect_is(p$layers[[1]], "ggproto")
# expect_identical(sort(unique(p$data$id)), sort(mxc_regions))
# expect_identical(p$labels$y, "lat")
# expect_identical(p$labels$x, "long")
#
# data("df_mxstate")
# state_regions <- df_mxstate$region
# p <- choropleth_inegi(token, state_regions, "3101008001", silent = TRUE)
# expect_is(p$layers[[1]], "ggproto")
# expect_identical(sort(unique(p$data$id)), sort(df_mxstate$region))
# expect_identical(p$labels$y, "lat")
# expect_identical(p$labels$x, "long")
#
#
# p <- hexbin_inegi(token, state_regions, "3101008001")
# expect_is(p$layers[[1]], "ggproto")
# expect_identical(sort(unique(p$data$id)), sort(df_mxstate$region))
# expect_identical(p$labels$y, "lat")
# expect_identical(p$labels$x, "long")
#
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.