load corrupted xls file into r without manually changing file type

Question

I am struggling to download an excel file and then loading it to R:

utils::download.file(
  url = \'https://servicos.ibama.gov.br/ctf/publico/areasembargadas/