Создайте строку json для каждой строки во фрейме данных

Question

У меня есть al oop, который создает строку json для каждого столбца в фрейме данных, чтобы хранить эти данные в виде текста в отдельной базе данных. Я бы предпочел метод, отличный от l oop, но я продолжаю сталкиваться с проблемами. Какой способ сделать это более эффективно?

library(tidyverse)
library(jsonlite)
df <- tibble(id1 = paste('ID',1:10),
       id2 = paste('ID',1:10))
for(r in 1:nrow(df)) {
  df[r,'combo'] <- toJSON(df[r,])
}

Answer 1

Один вариант с pmap

library(purrr)
library(dplyr)
df %>%
     mutate(combo = pmap(., ~toJSON(c(...))))