convertito al JSON

Question

Ho un frame di dati che mi piace di convertire in formato JSON:

il mio telaio di dati denominato res1:

library(rjson) 

structure(list(id = c(1, 2, 3, 4, 5), value = structure(1:5, .Label = c("server1", 
"server2", "server3", "server4", "server5"), class = "factor")), .Names = c("id", 
"value"), row.names = c(NA, -5L), class = "data.frame") 

quando lo faccio:

toJSON(res1) 

Ho capito:

{"id":[1,2,3,4,5],"value":["server1","server2","server3","server4","server5"]} 

I n eed questa uscita JSON per essere così, qualche idea?

[{"id":1,"value":"server1"},{"id":2,"value":"server2"},{"id":3,"value":"server3"},{"id":4,"value":"server4"},{"id":5,"value":"server5"}] 

Answer 1

stai

library(rjson) 
x <- toJSON(unname(split(res1, 1:nrow(res1)))) 
cat(x) 
# [{"id":1,"value":"server1"},{"id":2,"value":"server2"}, 
# {"id":3,"value":"server3"},{"id":4,"value":"server4"}, 
# {"id":5,"value":"server5"}] 

Utilizzando split() stiamo essenzialmente rompendo il grande data.frame in un data.frame separato per ogni riga. Rimuovendo i nomi dall'elenco risultante, la funzione toJSON avvolge i risultati in una matrice anziché in un oggetto denominato.

Answer 2

Il pacchetto jsonlite esiste per risolvere esattamente questo problema: "Una mappatura pratica e coerente tra i dati JSON e gli oggetti R".

La sua funzione toJSON fornisce questo risultato desiderato con le opzioni di default:

library(jsonlite) 
x <- toJSON(res1) 
cat(x) 

## [{"id":1,"value":"server1"},{"id":2,"value":"server2"}, 
## {"id":3,"value":"server3"},{"id":4,"value":"server4"}, 
## {"id":5,"value":"server5"}] 

Answer 3

Ora si può facilmente chiamare jsonlite::write_json() direttamente sul dataframe.