tests/testthat/test-distancia.R

In tomasbarcellos/milton: Geolocalizar Dados No Brasil

x <- get_addr("Brasília, DF")
y <- get_addr("Fortaleza")
z <- get_addr("Goiania")
w <- get_addr("Porto Alegre")

test_that("distancia retorna um numero positivo", {
  expect_type(distancia(x, y), "double")
  expect_true(distancia(x, y) > 0)
})

test_that("Calcula distancia ponto-ponto", {
  d <- distancia(x, y)

  # Dependendo de onde pega o ponto pode ser um pouco mais ou menos
  # Mas eh aproximadamente 1690
  expect_true(d > 1680 & d < 1700)
})

test_that("Calcula distancia ponto-vetor", {
  Y <- c(y, z, w)

  d <- distancia(x, Y)
  # Dependendo de onde pega o ponto pode ser um pouco mais ou menos
  # Mas eh aproximadamente 1690, 175, 1620
  expect_true(d[[1]] > 1680 & d[[1]] < 1700)
  expect_true(d[[2]] > 165 & d[[2]] < 185)
  expect_true(d[[3]] > 1610 & d[[3]] < 1630)
})


test_that("Calcula distancia vetor-ponto", {
  X <- c(x, z, w)

  d <- distancia(X, y)
  # Dependendo de onde pega o ponto pode ser um pouco mais ou menos
  # Mas eh aproximadamente 1690, 1860, 3210
  expect_true(d[[1]] > 1680 & d[[1]] < 1700)
  expect_true(d[[2]] > 1850 & d[[2]] < 1870)
  expect_true(d[[3]] > 3200 & d[[3]] < 3220)
})


test_that("Calcula distancia vetor-vetor", {
  X <- c(x, z)
  Y <- c(y, w)

  d <- distancia(X, Y)
  # Dependendo de onde pega o ponto pode ser um pouco mais ou menos
  # Mas eh aproximadamente 1690, 1620, 1850, 1500
  expect_true(d[1, 1] > 1680 & d[1, 1] < 1700)
  expect_true(d[1, 2] > 1610 & d[1, 2] < 1630)
  expect_true(d[2, 1] > 1840 & d[2, 1] < 1860)
  expect_true(d[2, 2] > 1490 & d[2, 2] < 1510)
})


test_that("Retorna menor distancia entre X e Y", {
  X <- c(x, z)
  Y <- c(y, w)

  d <- min_dist(X, Y)

  # menor distancia entre capitais eh goiania <-> porto alegre: +- 1500
  expect_true(min(d) > 1490 & min(d) < 1510)

  expect_true(d[1] > 1610 & d[1] < 1630) # bsb - porto alegre
  expect_true(d[2] > 1490 & d[2] < 1510) # goiania - porto alegre
})

test_that("Local mais proximo", {
  X <- c(x, z)
  Y <- c(y, w)

  resp <- sf::st_sfc(
    sf::st_point(c(-51.2303767, -30.0324999)),
    sf::st_point(c(-51.2303767, -30.0324999)),
    crs = 4674
  )

  # primeiro caso
  expect_equal(nearplace(x, Y), resp[1])
  expect_equal(nearplace(X, Y), resp)


})