Lire toutes les feuilles d'un classeur Excel dans une liste R avec des data.frames

Comment lire toutes les feuilles d’un classeur Excel dans une liste de data.frames en R ?

library(readxl)

chemin <- "fichier.xlsx"
feuilles <- excel_sheets(chemin)
liste_df <- lapply(feuilles, function(f) read_excel(chemin, sheet = f))
names(liste_df) <- feuilles

Ou avec openxlsx :

library(openxlsx)
liste_df <- lapply(getSheetNames("fichier.xlsx"), function(f) read.xlsx("fichier.xlsx", sheet = f))