如何使用R和plumber将javascript可以理解为数组而不是字符串的json对象发送出去？

install.packages("plumber")

library(plumber)
library(jsonlite)

#* @get /data
function(req, res){
  # 创建R对象，这里使用一个示例列表
  data <- list(names = c("Alice", "Bob", "Charlie"),
               ages = c(25, 30, 35))
  
  # 将R对象转换为JSON数组，而不是字符串
  json <- jsonlite::toJSON(data, auto_unbox = TRUE)
  
  # 发送JSON响应
  res$body <- json
  res$setHeader("Content-Type", "application/json")
  res$setHeader("Access-Control-Allow-Origin", "*")
  return(res)
}

plumber::plumb("api.R")$run(port = 8000)