# test_that("Cast geo", {
# dt <- readRDS(system.file("test-data", "cast_2024b.rds", package = "norgeo"))
# dt[, name := NULL]
# setkey(dt, code)
#
# expect_equal(cast_geo(2024, names = FALSE), dt)
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.