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

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

places <- tribble(
  ~place, ~lon, ~lat,
  "Tokyo", 139.767, 35.681,
  "Naha", 127.681, 26.212,
  "Ogasawara", 142.191, 27.094
)

places |>
  jpmap_transform(output_names = c("x", "y"))

## -----------------------------------------------------------------------------
pts <- sf::st_as_sf(
  places,
  coords = c("lon", "lat"),
  crs = 4326,
  remove = FALSE
)

pts |>
  jpmap_transform()

## -----------------------------------------------------------------------------
places |>
  jpmap_transform(output_names = c("x", "y"), inset = FALSE)

## -----------------------------------------------------------------------------
places |>
  jpmap_transform(output_names = c("x", "y"), inset = "okinawa")
places |>
  jpmap_transform(output_names = c("x", "y"), inset = "ogasawara")

## -----------------------------------------------------------------------------
places |>
  jpmap_transform(output_names = c("x", "y"), okinawa = FALSE)
places |>
  jpmap_transform(output_names = c("x", "y"), ogasawara = FALSE)