轉換兩個數據結構的組合到一個特定的JSON對象

Question

假設你有以下數據：

obj1 <- list('A', 'B', c('A', 'B')) 
obj2 <- rep(1, 3) 

產生的JSON對象我所需要的，這是兩者的結合，看起來像這樣：

[{'obj1':['A'], 'obj2':[1]},{'obj1':['B'], 'obj2':[1]}, {'obj1':['A','B'], 'obj2':[1]}] 

請注意，即使像A這樣的單個元素也包含在方括號內！

我現在的問題是，什麼是最簡單的方法來產生這個JSON結構？ obj1和obj2不一定是列表或向量。它也可以是一個單一的數據框。重要的是最終的JSON輸出的結構。

我嘗試迄今

tmp <- lapply(obj1, FUN = function(x) { 
    x <- list("obj1" = x) 
    x$obj2 <- obj2[1] 
    obj2 <<- obj2[-1] 
    return(x) 
}) 
jsonlite::toJSON(tmp) 

它確實工作。它似乎並不是最好的嘗試。

Answer 1

這似乎工作：

df <- data.frame(obj1 = I(obj1), obj2 = I(as.list(obj2))) 
toJSON(df) 
# [{"obj1":["A"],"obj2":[1]},{"obj1":["B"],"obj2":[1]},{"obj1":["A","B"],"obj2":[1]}] 

jsonlite::toJSON(tmp) 
# [{"obj1":["A"],"obj2":[1]},{"obj1":["B"],"obj2":[1]},{"obj1":["A","B"],"obj2":[1]}] 

---

這裏的關鍵點是

• 使用I()確保列類型list
• 在df的列需要進行命名（obj1和obj2）
• obj2也需要被強制爲list（as.list(obj2)）以便得到例如的"obj2":[1]代替"obj2":1

我通過逆向工程所需輸出確定此：

json <- gsub(
    "'", '"', 
    "[{'obj1':['A'],'obj2':[1]},{'obj1':['B'],'obj2':[1]},{'obj1':['A','B'],'obj2':[1]}]" 
) 
str(fromJSON(json)) 
# 'data.frame': 3 obs. of 2 variables: 
# $ obj1:List of 3 
# ..$ : chr "A" 
# ..$ : chr "B" 
# ..$ : chr "A" "B" 
# $ obj2:List of 3 
# ..$ : int 1 
# ..$ : int 1 
# ..$ : int 1