将JSON列添加到R数据帧

我有一个数据框，希望添加一个额外的列，其中包含JSON格式的每行数据。 在本例中：

dfr = data.frame(name = c("Andrew", "Mathew", "Dany", "Philip", "John", "Bing", "Monica"), age = c(28, 23, 49, 29, 38, 23, 29))

dfr %>% mutate(Payload = jsonlite::toJSON(dfr))

我想去

Andrew  28   {"name":"Andrew","age":28}
Mathew  23   {"name":"Mathew","age":23}

相反，我每行获取完整数据帧的JSON字符串。

---

我用

apply

尝试了它，但没能让它运行。

尝试每行运行一次：拆分每行，然后应用到JSON函数：

dfr$Payload <- sapply(split(dfr, seq(nrow(dfr))), toJSON)

dfr
#     name age                      Payload
# 1 Andrew  28 [{"name":"Andrew","age":28}]
# 2 Mathew  23 [{"name":"Mathew","age":23}]
# 3   Dany  49   [{"name":"Dany","age":49}]
# 4 Philip  29 [{"name":"Philip","age":29}]
# 5   John  38   [{"name":"John","age":38}]
# 6   Bing  23   [{"name":"Bing","age":23}]
# 7 Monica  29 [{"name":"Monica","age":29}]

---

dfr$Payload-Related:@StefanG阅读了关于purrr使用管道的信息。目前找不到相关的帖子。