Re-organising a nested list to a new list were inside lists are the outside list

nested_list_inside_out.R

library(dplyr)
library(purrr)

mini = list(
  fpkm = list(
    A = data.frame(x = c(1,3,4), y = c(23,634,12)),
    B = data.frame(x = c(4,7,8), y = c(22,857,35))
  ),
  counts = list(
    A = data.frame(x = c(0.1,0.3,4), y = c(0.23,0.634,0.12)),
    B = data.frame(x = c(0.4,0.7,0.8), y = c(0.22,0.857,0.35))
  )
)

mini_new = mini %>% transpose