BC Geocoder in R

bc_geocode.R

# http://api.bcdevexchange.org/api-console.html?swaggerUrl=https://raw.githubusercontent.com/bcgov/api-specs/master/geocoder/geocoder.json#/

library(httr)

base_url <- function() "http://apps.gov.bc.ca/pub/geocoder"

endpoint <- "addresses"

format <- "json"

url <- sprintf(paste0(base_url(),"/%s.%s"), endpoint, format)

res <- GET(url, query = list(addressString = "525 Superior St, Victoria BC"))

foo <- content(res)

jsonlite::toJSON(foo[c("type", "features")], auto_unbox = TRUE)