R/vld.R

In poissonconsulting/pgfsr: Client for pg_featureserv RESTful web service

Defines functions vld_charflag vld_response_json vld_response_geojson vld_response_status

vld_response_status <- function(x) {
  !http_error(x)
}

vld_response_geojson <- function(x) {
  http_type(x) == "application/geo+json"
}

vld_response_json <- function(x) {
  http_type(x) == "application/json"
}

vld_charflag <- function(x) {
  x %in% c('true', 'false')
}