# Criando um arquivo de exemplo para o teste
library(openxlsx)
tmp <- tempfile(fileext = ".xlsx")
m <- matrix(c(1, 2, 0.5, 1), nrow = 2)
openxlsx::write.xlsx(list(Sheet1 = m), file = tmp)
# Testando a função
lista = ler(tmp)
lista
Run the code above in your browser using DataLab