Compose a function multiple times to itself in R

compose_n.R

l <- list(
  list(
    list(
      a = 1
    )
  )
) %>%
  enframe()

# How to simplify this repetetive code?
l %>%
  unnest() %>%
  unnest() %>%
  unnest()

unnest(unnest(unnest(l)))
compose(!!!list(unnest, unnest, unnest))(l)


#' Compose a function multiple times to itself
#' 
#' This function applies the function `fun` to the object `data` and then
#' applies the same function again to the result of this call until `n`
#' iterations are finished.
#' 
#' add_one <- function(x) x + 1
#' add_one(add_one(add_one(2)))
#' compose_n(data = 2, n = 3, fun = "add_one")
#' 
#' @param data the object to which the function should be appli
compose_n <- function(data, n = 1, fun = "identity") {
  compose(!!!(map(rep(fun, n), match.fun)))(data)
}

l %>%
  compose_n(3, "unnest")