Extract specific cells from multiple excel files using R

Question

I would like to extract specific cells from multiple excel files in a folder.

Taking the xlxs sample file here as an example, I would like to extract cell C10 as row header, rows A18:A22 as column headers and the values J18:J22 and L18:L22.

library("readxl")

file.list <- list.files(path=".", pattern=".xlsx")

df.list <- lapply(file.list, read_excel, sheet=1, range=("L18:L22"), col_names=FALSE, col_types = NULL)
df <- data.frame(df.list)