tests/testthat/test_geocode.R

library("banR")
library("dplyr")
context("Geocode")

test_that(
  desc = "Geocode works",
  code = {
    expect_s3_class(geocode(query = "39 quai André Citroën Paris"), "tbl_df")
  }
)

test_that(
  desc = "Reverse geocode works",
  code = {
    expect_s3_class(reverse_geocode(long = 2.37, lat = 48.537), "tbl_df")
  }
)

Try the banR package in your browser

Any scripts or data that you put into this service are public.

banR documentation built on July 8, 2020, 6:47 p.m.