tests/testthat/test-geo_lite_struct_sf.R

In dieghernan/nominatimlite: Interface with 'Nominatim' API Service

test_that("Returning empty query", {
  skip_on_cran()
  skip_if_api_server()

  expect_message(
    obj <- geo_lite_struct_sf(),
    "Nothing to search for"
  )
  expect_s3_class(obj, "sf")
  expect_true(sf::st_is_empty(obj))


  expect_message(
    obj <- geo_lite_struct_sf("xbzbzbzoa aiaia"),
    "No results for"
  )
  expect_s3_class(obj, "sf")
  expect_true(sf::st_is_empty(obj))

  expect_true(nrow(obj) == 1)
  expect_true(obj$q_amenity == "xbzbzbzoa aiaia")
  expect_s3_class(obj, "sf")
  expect_s3_class(obj, "tbl")
  expect_true(sf::st_is_empty(obj))
  expect_identical(sf::st_crs(obj), sf::st_crs(4326))
})


test_that("Data format", {
  skip_on_cran()
  skip_if_api_server()
  skip_if_offline()

  obj <- geo_lite_struct_sf(city = "Madrid")

  expect_s3_class(obj, "sf")
  expect_s3_class(obj, "tbl")
  expect_equal(nrow(obj), 1)
  expect_identical(as.character(obj$q_city), "Madrid")
  expect_true(all(grepl("POINT", sf::st_geometry_type(obj))))


  # Polygon

  expect_message(
    test <- geo_lite_struct_sf(
      city = "Madrid",
      points_only = FALSE, limit = 100
    ),
    "Nominatim provides 50 results as a maximum"
  )


  expect_true(any(grepl("POLYGON", sf::st_geometry_type(test))))
  expect_s3_class(test, "sf")
  expect_s3_class(test, "tbl")
  expect_gt(nrow(test), 2)
  expect_identical(unique(as.character(test$q_city)), "Madrid")
})

test_that("Checking query", {
  skip_on_cran()
  skip_if_api_server()
  skip_if_offline()


  expect_message(
    obj <- geo_lite_struct_sf(
      city = c("Madrid", "Barcelona"),
      limit = 51
    ), "50 results"
  )

  expect_s3_class(obj, "sf")
  expect_s3_class(obj, "tbl")
  expect_identical(rev(names(obj))[1:2], rev(c("address", "geometry")))

  obj_old <- obj
  obj <- geo_lite_struct_sf("Madrid",
    full_results = FALSE,
    return_addresses = FALSE
  )

  expect_s3_class(obj, "sf")
  expect_s3_class(obj, "tbl")
  expect_false("address" %in% names(obj))

  obj_old1 <- obj
  obj <- geo_lite_struct_sf(
    city = "Madrid",
    full_results = FALSE,
    return_addresses = TRUE
  )

  expect_s3_class(obj, "sf")
  expect_s3_class(obj, "tbl")
  expect_identical(rev(names(obj))[1:2], rev(c("address", "geometry")))

  obj <- geo_lite_struct_sf(
    city = "Madrid",
    full_results = TRUE,
    return_addresses = FALSE
  )
  expect_s3_class(obj, "sf")
  expect_s3_class(obj, "tbl")
  expect_gt(ncol(obj), 4)


  expect_gt(
    nrow(geo_lite_struct_sf("restaurant",
      limit = 50,
      custom_query = list(countrycode = "es")
    )), 4
  )

  expect_equal(
    nrow(geo_lite_struct_sf("school",
      custom_query = list(countrycode = "es")
    )), 1
  )

  expect_equal(
    nrow(geo_lite_struct_sf("hospital",
      custom_query = list(extratags = TRUE)
    )), 1
  )
})


test_that("Fail", {
  skip_on_cran()
  skip_if_api_server()
  skip_if_offline()

  # KO
  expect_snapshot(several <- geo_lite_struct_sf(
    "madrid",
    full_results = TRUE,
    nominatim_server = "https://xyz.com/"
  ))

  expect_true(all(sf::st_is_empty(several)))
})