Преобразование data.frame в json в R

Question

Я пытаюсь преобразовать R data.frame в json-файл для дальнейшего вызова этого json-файла jQuery в js-коде.

У меня есть следующий data.frame:

# Input data.frame 
data <- data.frame(Product=c("Prod1","Prod2","Prod3","Prod4"), Val1=c(4,5,2,6.8), Val2=c(6,5,2,7.8), Val3=c(8,5,6,6.7), 
       Description=c("Doritos 1.0 Intel PAV UMA","Stag 1.2 Intel PAV UMA","Pike 1.0 Intel Spectre x360", 
          "Antinori 1.2 Intel PAV UMA")) 

и мне нужно, чтобы преобразовать его в файл JSON, так же, как это:

# Desired Output 
[ 
    ["Product","Val1","Val2","Val3", "Description"], 
    ["Prod1",4,6,8,"Doritos 1.0 Intel PAV UMA"], 
    ["Prod2",5,5,5,"Stag 1.2 Intel PAV UMA"], 
    ["Prod3",2,2,6,"Pike 1.0 Intel Spectre x360"], 
    ["Prod4",6.8,7.8,6.7,"Antinori 1.2 Intel PAV UMA"] 
] 

Я пытался использовать toJSONjsonlite пакет, но выход не тот, который мне нужен для вывода.

Не могли бы вы мне помочь, как бы я мог преобразовать исходный data.frame в желаемый вывод выше. Большое спасибо в форварде.

Answer 1

Вы можете использовать unname, чтобы получить квадратные скобки в вашем выводе JSon:

library(jsonlite) 
data <- rbind(names(data), sapply(data, as.character)) 
toJSON(unname(data), pretty = T) 
# [ 
# ["Product", "Val1", "Val2", "Val3", "Description"], 
# ["Prod1", "4", "6", "8", "Doritos 1.0 Intel PAV UMA"], 
# ["Prod2", "5", "5", "5", "Stag 1.2 Intel PAV UMA"], 
# ["Prod3", "2", "2", "6", "Pike 1.0 Intel Spectre x360"], 
# ["Prod4", "6.8", "7.8", "6.7", "Antinori 1.2 Intel PAV UMA"] 
# ] 

Альтернатива:

df.toJSON <- function(data) { 
    out <- capture.output(write.csv(data, row.names = FALSE, eol = "],\n")) 
    out <- paste(paste0(" [", out, collapse = "\n")) 
    out <- substr(out, 0, nchar(out)-1) 
    out <- paste0("\n[\n", out, "\n]") 
    return(out) 
} 
cat(df.toJSON(data)) 
# [ 
# ["Product","Val1","Val2","Val3","Description"], 
# ["Prod1",4,6,8,"Doritos 1.0 Intel PAV UMA"], 
# ["Prod2",5,5,5,"Stag 1.2 Intel PAV UMA"], 
# ["Prod3",2,2,6,"Pike 1.0 Intel Spectre x360"], 
# ["Prod4",6.8,7.8,6.7,"Antinori 1.2 Intel PAV UMA"] 
# ]