## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", message = FALSE)
jpmap_build_full_vignettes <- identical(tolower(Sys.getenv("JPMAP_FULL_VIGNETTES")), "true") ||
  identical(tolower(Sys.getenv("IN_PKGDOWN")), "true")

## -----------------------------------------------------------------------------
library(jpmap)
available <- if (jpmap_build_full_vignettes) {
  available_jpmap_data()
} else {
  available_jpmap_data(data_dir = tempfile())
}
jpmap_has_boundary_data <- nrow(available) > 0
jpmap_has_okinawa_data <- any(available$year == 2024 & available$pref_code == "47")
available_summary <- available[c("year", "pref_code", "prefecture", "source")]
row.names(available_summary) <- NULL
available_summary

## ----eval = jpmap_has_boundary_data-------------------------------------------
# prefectures <- jp_map("prefecture")
# prefectures

## ----eval = jpmap_has_okinawa_data--------------------------------------------
# okinawa_municipalities <- jp_map("municipality", include = "Okinawa")
# okinawa_municipalities

## ----eval = FALSE-------------------------------------------------------------
# jpmap_build_data(year = 2024, prefecture = "Ehime")
# ehime_municipalities <- jp_map("municipality", include = "Ehime", data_year = 2024)

## ----eval = FALSE-------------------------------------------------------------
# ehime_municipalities <- jp_map(
#   "municipality",
#   include = "Ehime",
#   data_year = 2024,
#   data_dir = "jpmap-data"
# )

## ----eval = jpmap_has_okinawa_data--------------------------------------------
# okinawa_file <- available$path[available$year == 2024 & available$pref_code == "47"]
# 
# sf::st_layers(okinawa_file)

## ----eval = FALSE-------------------------------------------------------------
# municipalities <- sf::st_read(okinawa_file, layer = "municipalities")