context("sf_jpn")
test_that("jpn_pref", {
df_pref <-
jpn_pref(
pref_code = 33,
district = TRUE,
drop_sinkyokyoku = FALSE
)
expect_s3_class(df_pref, c("sf"))
expect_s3_class(df_pref, c("tbl"))
expect_equal(df_pref$prefecture[1],
intToUtf8(c(23713, 23665, 30476), multiple = FALSE))
expect_equal(
unique(jpn_pref(pref_code = 33)$pref_code),
"33"
)
char_okym <- intToUtf8(c(23713, 23665, 30476), multiple = FALSE)
expect_identical(
jpn_pref(pref_code = 33),
jpn_pref(admin_name = char_okym)
)
expect_named(
df_pref,
c(
"pref_code",
"prefecture",
"sichyo_sinkyokyoku",
"city_code",
"city",
"geometry"
)
)
if (utils::packageVersion("sf") <= numeric_version("0.8.1")) {
expect_identical(sf::st_crs(df_pref), crs_4326)
} else {
expect_equal(sf::st_crs(df_pref)$input, "EPSG:4326")
}
expect_named(
jpn_pref(pref_code = 12, drop_sinkyokyoku = TRUE),
c("pref_code", "prefecture", "city_code", "city", "geometry")
)
df_pref2 <- jpn_pref(pref_code = 14, district = FALSE)
expect_s3_class(df_pref2, c("sf"))
expect_s3_class(df_pref2, c("tbl"))
expect_named(df_pref2,
c("pref_code", "prefecture", "geometry"))
if (utils::packageVersion("sf") <= numeric_version("0.8.1")) {
expect_identical(sf::st_crs(df_pref2), crs_4326)
} else {
expect_equal(sf::st_crs(df_pref2)$input, "EPSG:4326")
}
df_pref13 <-
jpn_pref(pref_code = 13, district = TRUE)
expect_equal(
df_pref13$city[1],
intToUtf8(c(21315, 20195, 30000, 21306))
)
expect_equal(
df_pref13$city %>%
unique() %>%
grepl("NA$", .) %>%
sum(),
0L
)
})
test_that("jpn_cities", {
df_city <- jpn_cities(jis_code = 33103)
expect_s3_class(df_city, c("sf"))
expect_s3_class(df_city, c("tbl"))
expect_named(df_city,
c("city_code", "city", "geometry"))
expect_equal(
df_city$city[1],
intToUtf8(c(23713, 23665, 24066, 32, 26481, 21306), multiple = FALSE)
)
expect_equal(nrow(jpn_cities(jis_code = c(
33103, 33104, 33205
))), 3L)
expect_equal(nrow(jpn_cities(jis_code = 33205)), 1L)
if (utils::packageVersion("sf") <= numeric_version("0.8.1")) {
expect_identical(sf::st_crs(df_city), crs_4326)
} else {
expect_equal(sf::st_crs(df_city)$input, "EPSG:4326")
}
expect_equal(dim(
jpn_cities(
jis_code = 33,
admin_name = intToUtf8(c(23713, 23665, 24066, 32, 26481, 21306), multiple = FALSE) # nolint
)
),
c(1, 3))
})
test_that("Collect administration offices data", {
df_admins <- jpn_admins(jis_code = 47)
expect_s3_class(df_admins, c("sf"))
expect_equal(dim(df_admins), c(65, 5))
expect_named(df_admins,
c("jis_code", "type", "name", "address", "geometry"))
expect_is(df_admins$jis_code[1], "factor")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.