custom_json

[zjiang4]

What is this? How is it different from the custom_json set in the blockchain-node-server.R?

custom_json <- function(){
function(val, req, res, errorHandler){
tryCatch({
json <- jsonlite::toJSON(val,auto_unbox=TRUE)

  res$setHeader("Content-Type", "application/json")
  res$body <- json

  return(res$toResponse())
}, error=function(e){
  errorHandler(req, res, e)
})

}
}

addSerializer("custom_json",custom_json)