[Question] is there a better way to do this in rlist package?

[happyshows]

Hi,

I was experimenting on d3radar package and encountered the following transformation need. I'm wondering if rlist has a more efficient way of achieving the same?
The approach might have wider application as it's json like.

Thanks.

mtcars %>%
add_rownames( var = "key" ) %>%
mutate_each(funs(rescale), -key) %>%
#limit to 8 rows for manageability
head(8) %>%
by_row(
function(row){
list(
key = row[["key"]],
values = lapply(
names(row)[-match("key",names(row))],
function(nm){
list(
"axis" = nm,
"value" = row[[nm]]
)
}
)
)
}
)

http://www.buildingwidgets.com/blog/2015/12/9/week-49-d3radarr

[timelyportfolio]

I am sure that @renkun-ken probably has a more elegant answer, but here is my first way to do in rlist.

library(dplyr)
library(scales)
library(rlist)
library(d3radarR)

mtcars %>%
  add_rownames( var = "key" ) %>%
  mutate_each(funs(rescale), -key) %>%
  head(8) %>%
  list.parse() %>%
  list.map(
    list(
      "key"=key,
      values=lapply(
        names(.)[-match("key",names(.))],
        function(nm){
          list(
            "axis" = nm,
            "value" = .[[nm]]
          )
        }
      )
    )
  ) %>%
  unname() %>%
  d3radar()