R/internal.R

In poissonconsulting/pgfsr: Client for pg_featureserv RESTful web service

format_parameter <- function(x) {
  if (is.null(x)) {
    return(x)
  }
  paste(x, collapse = ",")
}

status_msg <- function(x) {
  y <- content(x, "text", encoding = "UTF-8")
  if (vld_response_json(x)) {
    return(jsonlite::fromJSON(y))
  }
  y
}

format_parameter <- function(x) {
  if (is.null(x)) {
    return(x)
  }
  paste(x, collapse = ",")
}

# this prevents scientific notation for 100000
format_number <- function(x) {
  format(x, scientific = FALSE)
}

response_content <- function(x) {
  content(x, "text", encoding = "UTF-8")
}

content_geojson <- function(x) {
  chk_response_geojson(x)
  x <- response_content(x)
  x <- geojsonsf::geojson_sf(x)
  class(x) <- c("sf", "tbl", "tbl_df", "data.frame")
  nm <- sort(setdiff(colnames(x), "geometry"))
  x[, c(nm, "geometry")]
}

content_json <- function(x, table = "collections", tibble = TRUE) {
  chk_response_json(x)
  x <- response_content(x)
  x <- jsonlite::fromJSON(x, flatten = FALSE)
  x <- x[[table]]
  if(tibble)
    return(tibble::as_tibble(x))
  x
}

content_parsed <- function(x) {
  # flatten = FALSE is slightly faster
  jsonlite::fromJSON(x, flatten = FALSE)
}