R/R6-Result.R

In gqlr: 'GraphQL' Server in R

for_onload(function() {
  Result <- R6Class(
    "Result",
    public = list(
      error_list = NULL,
      data = NULL,
      as_json = function(...) {
        result_as_json(self, ...)
      },
      initialize = function(error_list = ErrorList$new()) {
        self$error_list <- error_list
        self$data <- NULL
        invisible(self)
      },
      print = function(...) {
        print(self$as_json(...))
      }
    )
  )
}) # end for_onload

#' @export
format.Result <- function(x, ...) {
  as.character(x$as_json(...))
}
#' @export
as.character.Result <- function(x, ...) {
  as.character(x$as_json(...))
}