R сантехник JSON сериализатор auto_unbox

Question

Следуя примеру на странице http://plumber.trestletech.com/

Я написал myfile.R в

#* @post /test 
test <- function(){ 
list(speech='aa',source='bb',displayText='cc') 
} 

И я побежал код сантехник на него, чтобы преобразовать Int в API

library(plumber) 
r <- plumb("~/Work/myfile.R") 
r$run(port=8000) 

И теперь, когда я выполняю запрос POST на нем, я получаю

curl -XPOST 'localhost:8000/test 
-> {"speech":["aa"],"source":["bb"],"displayText":["cc"]} 

Но я хочу, чтобы квадратные скобки были удалены. В простых вызовах JSON это можно сделать, используя auto_unbox = TRUE, но как я могу это сделать в сантехнике. Как написать собственный сериализатор и использовать его в приведенном выше коде?

Answer 1

Я понял процесс добавления пользовательских сериализаторов. Допустим, мы хотим, чтобы сделать пользовательский сериализатор для JSON и назовите его «custom_json» myfile.R будет

#* @serializer custom_json 
#* @post /test 
test <- function(){ 
list(speech='aa',source='bb',displayText='cc') 
} 

И во время работы кода водопроводчик это пойти бы, как

library(plumber) 
library(jsonlite) 

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) 
r <- plumb("~/Work/myfile.R") 
r$run(port=8000) 

И теперь, когда Я выполнить запрос POST на него с помощью я получаю

curl -XPOST 'localhost:8000/test 
-> {"speech":"aa","source":"bb","displayText":"cc"} 

Answer 2

Это также выглядит как сантехник на самом деле обеспечивает настройку: #' @serializer unboxedJSON, что вы можете просто объявление d на ваш myfile.R сценарий: https://www.rplumber.io/docs/rendering-and-output.html#serializers