tests/testthat/test-coords.R

In UchidaMizuki/japanmesh: Functions for the Grid Square Codes in Japan

test_that("grid_to_coords() works", {
  # 5km
  grid5km <- parse_grid("6542412", "5km")
  expect_equal(coords_to_grid(142.23824, 43.67456, "5km"), grid5km)

  # 1km
  grid1km <- parse_grid("53394644", "1km")
  expect_equal(coords_to_grid(139.80625, 35.704166666666666, "1km"), grid1km)
  coords <- grid_to_coords(grid1km)
  expect_equal(coords$X, 139.80625)
  expect_equal(coords$Y, 35.704166666666666)
})

test_that("coords_reconversion", {
  x <- c(53394526313, 5339358633, 533945764, 53394611, 523503, 5339)

  for (grid_size in c(
    "80km",
    "10km",
    "5km",
    "1km",
    "500m",
    "250m",
    "125m",
    "100m"
  )) {
    grid_size <- grid_size_match(grid_size)

    grid <- parse_grid(x, grid_size, strict = FALSE)
    coords <- grid_to_coords(grid)
    grid1 <- coords_to_grid(coords$X, coords$Y, grid_size)

    expect_equal(grid, grid1)
  }
})

test_that("coords_reconversion_notcenter", {
  x <- c(53394526313, 5339358633, 533945764, 53394611, 523503, 5339)
  eps <- .Machine$double.eps^0.5

  for (grid_size in c(
    "80km",
    "10km",
    "5km",
    "1km",
    "500m",
    "250m",
    "125m",
    "100m"
  )) {
    grid_size <- grid_size_match(grid_size)

    grid <- parse_grid(x, grid_size = grid_size, strict = FALSE)
    coords <- grid_to_coords(grid, center = FALSE)
    grid1 <- coords_to_grid(
      coords$X_min + eps,
      coords$Y_min + eps,
      grid_size = grid_size
    )
    grid2 <- coords_to_grid(
      coords$X_max - eps,
      coords$Y_min + eps,
      grid_size = grid_size
    )
    grid3 <- coords_to_grid(
      coords$X_min + eps,
      coords$Y_max - eps,
      grid_size = grid_size
    )
    grid4 <- coords_to_grid(
      coords$X_max - eps,
      coords$Y_max - eps,
      grid_size = grid_size
    )
    expect_equal(grid, grid1)
    expect_equal(grid, grid2)
    expect_equal(grid, grid3)
    expect_equal(grid, grid4)
  }
})