Как загрузить и сохранить несколько файлов GeoTiff с помощью цикла for?

Я пытаюсь загрузить и проанализировать файлы GeoTiff и извлечь из них буквенно-цифровые данные. Файлы представлены здесь:

https://www.wpc.ncep.noaa.gov/heatrisk/data.html

Файлы представляют собой категориальные прогнозы риска жары (например, «Высокий», «Очень высокий» и т. д.) в различных регионах штата Калифорния. Данные, которые мне нужны, — это проекции и географические идентификаторы (например, названия округов), связанные с каждой проекцией, а не растровые данные (на данный момент).

(Примечание: файлы .kml, представленные на странице данных, пусты, согласно переписке с NWS.)

Загрузка файлов .tif

Кажется, этот код работает:

#Load Packages
#install.packages("raster")
#install.packages("terra")
#install.packages("vapour")

library(raster)
library(httr)
library(terra)


#Read In GeoTiff Files

#Base URL
base_url <- https://www.wpc.ncep.noaa.gov/heatrisk/data/

#Function to Read in Files
download_heatrisk_geotiff <- function(day_number) {
  url <- paste0(base_url, "?day = ", day_number)
  response <- GET(url)
  
  if (status_code(response) == 200) {
    # Parse the TIFF content
    tif_content <- content(response, "text")
    
    # Save KML content to a file
    writeLines(tif_content, paste0(getwd(), "/data/HeatRisk_", day_number, "_Mercator.tif"))
    cat(paste0("Downloaded HeatRisk_", day_number, "_Mercator.tif\n"))
  } else {
    cat(paste0("Error downloading HeatRisk_", day_number, "_Mercator.tif\n"))
  }
}

# Download .tif files for individual days
for (day in 1:7) {
  download_heatrisk_geotiff(day)
}

Изображение загруженных файлов

Непонятно, что нужные мне данные находятся в скачанных файлах.

Извлечение данных

#Extract Data
geotiff_file <- raster(paste0(getwd(), "/data/HeatRisk_", day_number, "_Mercator.tif"))
geotiff_file2 <- terra::readValues(paste0(getwd(), "/data/HeatRisk_", day_number, "_Mercator.tif"))
geotiff_file3 <- vapour::vapour_read_raster(paste0(getwd(), "/data/HeatRisk_", day_number, "_Mercator.tif"))

Я уже просматривал эти страницы:

• https://inbo.github.io/tutorials/tutorials/spatial_standards_raster/

• R: чтение данных Geotiff прямо с URL-адреса веб-сайта (httr::GET необработанный контент)

• Как прочитать файл GeoTIFF и вернуть определенный тип данных на языке R?

Спасибо!