42

I have a dataframe that I'd like to convert to json format:

my data frame called 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")

when I do:

toJSON(res1)

I get this:

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

I need this json output to be like this, any ideas?

[{"id":1,"value":"server1"},{"id":2,"value":"server2"},{"id":3,"value":"server3"},{"id":4,"value":"server4"},{"id":5,"value":"server5"}]
zx8754
  • 46,390
  • 10
  • 104
  • 180
user1471980
  • 10,383
  • 47
  • 132
  • 225

4 Answers4

59

The jsonlite package exists to address exactly this problem: "A practical and consistent mapping between JSON data and R objects."

Its toJSON function provides this desired result with the default options:

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"}]
nycdatawrangler
  • 611
  • 1
  • 5
  • 5
  • if you have the issue, that you have your values nested within an array, instead of a single value: use the option auto_unbox=TRUE in the toJSON function to unbox "value":["server1"] to "value": "server1". example command: toJSON(res1, pretty=TRUE, flatten=TRUE, auto_unbox=TRUE) – klickagent.ch Mar 25 '18 at 16:53
33

How about

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"}]

By using split() we are essentially breaking up the large data.frame into a separate data.frame for each row. And by removing the names from the resulting list, the toJSON function wraps the results in an array rather than a named object.

MrFlick
  • 178,638
  • 15
  • 253
  • 268
  • Thanks. And if we want split by row. `library(rjson);library(dplyr);res1% select_at (vars(starts_with("y")))), 1:nrow(res1)) ) ), function(x) rjson::toJSON(x) ) ` and with `res1 %>% select_at (vars(-starts_with("y")))` – phili_b Jan 15 '20 at 13:56
5

Now you can easily just call jsonlite::write_json() directly on the dataframe.

Jared Wilber
  • 4,775
  • 29
  • 34
  • 6
    `read_json` and `write_json` are designed to read/write from disk. `jsonlite::toJSON(res1)` is still the correct answer for this question. – SymbolixAU Jul 18 '18 at 03:38
1

You can also use library(jsonify)

jsonify::to_json( res1 )
# [{"id":1.0,"value":"server1"},{"id":2.0,"value":"server2"},{"id":3.0,"value":"server3"},{"id":4.0,"value":"server4"},{"id":5.0,"value":"server5"}]
SymbolixAU
  • 23,954
  • 4
  • 56
  • 128