# Criando um arquivo temporário para o exemplo funcionar sem erro
library(openxlsx)
m1 <- matrix(c(1, 2, 0.5, 1), nrow = 2)
tmp <- tempfile(fileext = ".xlsx")
write.xlsx(list(Sheet1 = m1), file = tmp)
# Agora testando a função ler com o arquivo que acabamos de criar
lista = ler(tmp)
lista
Run the code above in your browser using DataLab