List names as JSON object name

Question

i am facing the problem of JSON object naming in R.

 df = list(`Choose to and fro flights` =  data.frame(sec =c('15:31:36' ,'15:31:37'),label=c("Choose to and fro flights","Choose to and fro flights"),responseCode = c( 200, 200), Counting=c(9,1)),
 `Details` = data.frame(sec = c("15:31:37" ,"15:31:37","15:31:38","15:31:39"),label = c("Details","Details","Details","Details"),responseCode = c("200","Non HTTP response code: org.apache.http.NoHttpResponseException","200","200"), Counting=c(2,2,5,1)))

i want the label name is same as the JSON object name here i am trying with following code but it's not give correct answer

toJSON(list(ResponseCode=lapply(seq_along(df), function(i) {    list(R_C_seconds=df[[i]]$sec,R_C_labels=df[[i]]$label,R_C_responseCode=df[[i]]$responseCode,R_C_Count=df[[i]]$Counting)})))

is my output:

i want replace the 0 and 1 with label names.

yutannihilation · Accepted Answer · 2017-11-14T13:24:51.203

lapply() sets names on the result if the original argument has names. So, instead of seq_along(df), you need to build a named vector like this:

idx <- seq_along(df)
names(idx) <- names(df)

or you can pass df itself to lapply():

reprex::reprex_info()
#> Created by the reprex package v0.1.1.9000 on 2017-11-14

df <- list(
  `Choose to and fro flights` =  data.frame(sec = c('15:31:36', '15:31:37'),
                                            label = c("Choose to and fro flights", "Choose to and fro flights"),
                                            responseCode = c( 200, 200),
                                            Counting = c(9,1)),
  `Details` = data.frame(sec = c("15:31:37", "15:31:37", "15:31:38", "15:31:39"),
                         label = c("Details", "Details", "Details", "Details"),
                         responseCode = c("200", "Non HTTP response code: org.apache.http.NoHttpResponseException", "200", "200"),
                         Counting=c(2,2,5,1))
)


jsonlite::toJSON(
  list(
    ResponseCode = lapply(df, function(x) {
      list(
        R_C_seconds      = x$sec,
        R_C_labels       = x$label,
        R_C_responseCode = x$responseCode,
        R_C_Count        = x$Counting
      )
    })
  ),
  pretty = TRUE
)
#> {
#>   "ResponseCode": {
#>     "Choose to and fro flights": {
#>       "R_C_seconds": ["15:31:36", "15:31:37"],
#>       "R_C_labels": ["Choose to and fro flights", "Choose to and fro flights"],
#>       "R_C_responseCode": [200, 200],
#>       "R_C_Count": [9, 1]
#>     },
#>     "Details": {
#>       "R_C_seconds": ["15:31:37", "15:31:37", "15:31:38", "15:31:39"],
#>       "R_C_labels": ["Details", "Details", "Details", "Details"],
#>       "R_C_responseCode": ["200", "Non HTTP response code: org.apache.http.NoHttpResponseException", "200", "200"],
#>       "R_C_Count": [2, 2, 5, 1]
#>     }
#>   }
#> }

List names as JSON object name

1 Answers1