#' Place query
#'
#' Submit a place query and receive a complete list of places matches and associated data.
#' This function is similar to \code{\link{place_lookup}} but it returns a list
#' and allows limiting the results.
#'
#' @importFrom httr GET
#' @importFrom utils URLencode
#'
#' @param place A string. Name of a place to search for.
#' @param limit An integer. Limits the number of matches to return.
#' Defaults to 10. Needs to be less than 100.
#'
#' @return A list with available places.
#' @seealso \code{\link{place_lookup}} for documentation.
#'
#' @export
#'
#' @examples
#' \donttest{
#' place_query("Hills")
#' place_query("Hills", limit = 12)
#' }
#'
place_query <- function(place, limit = 10) {
if (!is.character(place) || nchar(place) < 2) {
stop("Please provide a valid place name.")
}
if (limit > 100) {
stop("Please provide an integer lower than 100.")
}
place <- URLencode(place)
r <- GET(paste0("https://api.postcodes.io/places?q=",
place, "&limit=", limit))
extract_results(r)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.