R/R6z-from-json.R

In schloerke/gqlr: 'GraphQL' Server in R

r6_from_list <- function(
  obj,
  level = 0,
  keys = c(),
  objPos = NULL,
  verbose = FALSE
) {
  vcat <- function(...) {
    if (verbose) {
      cat(..., sep = "")
    }
  }
  if (typeof(obj) != "list") {
    return(obj)
  }
  objClass <- obj$kind
  if (is.null(objPos)) {
    keys <- append(keys, objClass)
  } else {
    keys <- append(keys, str_c(objPos, "-", objClass))
  }
  level <- level + 1

  r6Obj <- PkgObjs$get_class_obj(objClass)

  retList <- list()

  fieldNames <- names(r6Obj$public_fields$.args)

  for (activeKey in fieldNames) {
    vcat("(", level, ") - ", paste(keys, collapse = ","), "-", activeKey, "\n")
    objVal <- obj[[activeKey]]

    if (is.list(objVal)) {
      if (length(objVal) == 0) {
        retList[[activeKey]] <- list()
      } else {
        if (identical(class(objVal), "list")) {
          # going through a list, such as 'Document$definitions' or 'ObjectTypeDefinition$fields'

          retList[[activeKey]] <- lapply(seq_along(objVal), function(i) {
            r6_from_list(
              objVal[[i]],
              keys = keys, level = level,
              objPos = i,
              verbose = verbose
            )
          })

        } else {
          # going into another object, such as "Name" or "Location"
          retList[[activeKey]] <- r6_from_list(
            objVal,
            keys = keys,
            level = level,
            verbose = verbose
          )
        }
      }
    } else {
      retList[[activeKey]] <- objVal
    }
  }

  # Create the object
  do.call(r6Obj$new, retList)
}