## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(jpmap)

available <- available_jpmap_data()[c("year", "pref_code", "prefecture", "source")]
row.names(available) <- NULL
available

## ----eval = FALSE-------------------------------------------------------------
# jpmap_build_data(year = 2024, prefecture = "Ehime")

## ----eval = FALSE-------------------------------------------------------------
# jpmap_build_data(year = 2024)

## ----eval = FALSE-------------------------------------------------------------
# plot_jpmap("prefecture", territorial_disputes = FALSE)

## ----eval = FALSE-------------------------------------------------------------
# plot_jpmap("prefecture", territorial_disputes = "senkaku")
# plot_jpmap("prefecture", territorial_disputes = c("senkaku", "takeshima"))

## ----eval = FALSE-------------------------------------------------------------
# sessionInfo()
# available <- available_jpmap_data()[c("year", "pref_code", "prefecture", "source")]
# row.names(available) <- NULL
# available