How to make list-cols?

code.R

library(dplyr)
library(tibble)

myList <- list(
  list(
    id = 1,
    name = "A",
    sublist = list(
      a=1,b=2
    )
  ),
  list(id = 2,
       name = "B",
       sublist= list(
         a=3,c=4
       )
       )
)
### This gets me what I want, but doesn't seem tidyverse enough
lapply(myList, function(x) {
  x[vapply(x,is.list,logical(1))] <- lapply(x[vapply(x,is.list,logical(1))], function(i) {
    list(i)
  })
  as_tibble(x)
}) %>% bind_rows

Thanks!