## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  message = FALSE,
  fig.width = 7,
  fig.height = 5,
  dpi = 120,
  fig.bg = "white",
  dev.args = list(bg = "white")
)
jpmap_build_full_vignettes <- identical(tolower(Sys.getenv("JPMAP_FULL_VIGNETTES")), "true") ||
  identical(tolower(Sys.getenv("IN_PKGDOWN")), "true")
jpmap_has_boundary_data <- jpmap_build_full_vignettes &&
  nrow(jpmap::available_jpmap_data()) > 0

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

## ----default-insets, eval = jpmap_has_boundary_data---------------------------
# plot_jpmap("prefecture") +
#   labs(title = "Default map with Okinawa and Ogasawara insets") +
#   theme(
#     plot.title = element_text(face = "bold", color = "#001040")
#   )

## ----okinawa-only, eval = jpmap_has_boundary_data-----------------------------
# plot_jpmap(
#   "prefecture",
#   ogasawara = FALSE
# ) +
#   labs(title = "Okinawa inset only") +
#   theme(
#     plot.title = element_text(face = "bold", color = "#001040")
#   )

## ----ogasawara-only, eval = jpmap_has_boundary_data---------------------------
# plot_jpmap(
#   "prefecture",
#   okinawa = FALSE
# ) +
#   labs(title = "Ogasawara inset only") +
#   theme(
#     plot.title = element_text(face = "bold", color = "#001040")
#   )

## ----axis-controls, eval = jpmap_has_boundary_data----------------------------
# plot_jpmap(
#   "prefecture",
#   ogasawara = FALSE,
#   xlim = c(122, 149),
#   ylim = c(28.5, 47),
#   x_breaks = seq(125, 145, 5),
#   y_breaks = seq(30, 45, 5),
#   x_labels = function(x) paste0(x, "\u00b0E"),
#   y_labels = function(y) paste0(y, "\u00b0N")
# ) +
#   labs(title = "Main islands with Okinawa inset") +
#   theme(
#     plot.title = element_text(face = "bold", color = "#001040")
#   )

## ----no-boxes, eval = jpmap_has_boundary_data---------------------------------
# plot_jpmap(
#   "prefecture",
#   inset_boxes = FALSE
# ) +
#   labs(title = "Insets without boxes") +
#   theme(
#     plot.title = element_text(face = "bold", color = "#001040")
#   )

## ----literal-map, eval = jpmap_has_boundary_data------------------------------
# plot_jpmap(
#   "prefecture",
#   inset = FALSE
# ) +
#   labs(title = "Projected map without transported insets") +
#   theme(
#     plot.title = element_text(face = "bold", color = "#001040")
#   )

## ----disputed-territories-highlight, eval = jpmap_has_boundary_data-----------
# plot_jpmap(
#   "prefecture",
#   disputed_fill = "#005BAC",
#   disputed_color = "#001040",
#   disputed_dots = TRUE
# ) +
#   labs(title = "Map with highlighted disputed-territory shapes") +
#   theme(
#     plot.title = element_text(face = "bold", color = "#001040")
#   )