R/json_str_fltquery.R

In ge-flight-analytics/Rems: R EMS API Wrapper

#' @export
#' @importFrom jsonlite toJSON
json_str <- function(qry, ...) UseMethod("json_str", qry)

#' @export
json_str.FltQuery <-
  function(qry)
  {
    jsonlite::toJSON(qry$queryset, auto_unbox = T, pretty = T)
  }