R/avail-uktrans.R

In uklr: Client to United Kingdom Land Registry

#' Display Land Registry Transaction available categories
#'
#' \code{uktrans_avail_items()} and \code{uktrans_avail_regions()} display
#' available items and regions for search respectively.
#'
#' @return Returns a character vector.
#'
#' @export
#' @examples
#'
#' uktrans_avail_items()
#' uktrans_avail_regions()
uktrans_avail_items <- function() {
  .query <- build_sparql_file_query(
    "trans", "applications-by-region", "2011-12-00009")
  proc <- process_request(.query)
  proc %||% return(invisible(NULL))
  categories_url <- grep("trans", proc$type, value = TRUE)
  complete <- gsub(".*trans/(.+)", "\\1", categories_url)
  complete[-c(5, 14)]
}

#' @rdname uktrans_avail_items
#' @export
uktrans_avail_regions <- function() {
  .query <- "SELECT DISTINCT ?region{ ?type trans:regionName ?region}"
  proc <- process_request(.query)
  proc %||% return(invisible(NULL))
  proc$region
}