R to JSON:嵌入数组时出现问题

library(jsonlite)

data <- list(a = 1, b = list(c = 2, d = 3))
json <- toJSON(data, auto_unbox = TRUE)
print(json)

data <- list(a = 1, b = list(c = 2, d = 3))

# 定义一个函数来处理数组转换
convertArrayToJson <- function(arr) {
  json <- "["
  for (i in 1:length(arr)) {
    if (is.list(arr[[i]])) {
      json <- paste0(json, convertArrayToJson(arr[[i]]))
    } else {
      json <- paste0(json, toJSON(arr[[i]]))
    }
    if (i < length(arr)) {
      json <- paste0(json, ", ")
    }
  }
  json <- paste0(json, "]")
  return(json)
}

json <- convertArrayToJson(data)
print(json)