怎么样
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"}]通过使用，
split()我们实际上将大的data.frame分解为每一行的单独的data.frame。通过从结果列表中删除名称，该
toJSON函数将结果包装在数组中，而不是命名对象中。
