R/pxweb_as_json.R

In pxweb: R Interface to PXWEB APIs

#' Convert object to json
#' 
#' @param x an object to convert.
#' 
#' @keywords internal
pxweb_as_json <- function(x){
  UseMethod("pxweb_as_json")
}

#' @rdname pxweb_as_json
#' @keywords internal
pxweb_as_json.pxweb_query <- function(x){
  for(i in seq_along(x$query)){
    x$query[[i]]$selection$values <- as.list(x$query[[i]]$selection$values)
  }
  jsonlite::toJSON(x, auto_unbox = TRUE)
}