log.qmd

---
title: "Update Log"
format:
  html:
    page-layout: full
    toc: false
engine: knitr
lightbox: true
date: today
language:
  title-block-published: "Last modified"
---

<style>
#title-block-header,
#quarto-header,
#quarto-header-headroom {
  display: none !important;
}
</style>

```{r, echo=FALSE, warning=FALSE, message=FALSE}
library(htmltools)
source("R/site_components.R")
coverage_file_date <- get_latest_coverage_date()
```

```{r, echo=FALSE, warning=FALSE, message=FALSE, results='asis'}
site_header()
```

```{=html}
<section class="column-screen subpage-hero-band">
  <div class="subpage-hero-copy">
    <p class="subpage-eyebrow">Resources</p>
    <h1>Update log</h1>
    <p class="subpage-hero-lede">Coverage additions are logged here as dated map snapshots. This keeps the refresh history visible without overloading the landing page.</p>
  </div>
</section>
<div class="subpage-main">
```

```{r, echo=F, message=F}
library(tidyverse)
library(lubridate)

img_folder <- "img/UpdateLog"
img_files <- list.files(path = img_folder, pattern = "\\.png$", full.names = TRUE)

img_info <- tibble(file = img_files) %>%
  mutate(
    filename = basename(file),
    date_str = str_extract(filename, "\\d{4}-\\d{2}-\\d{2}"),
    date = ymd(date_str)
  ) %>%
  arrange(desc(date))

output <- map2_chr(
  img_info$file,
  img_info$date,
  ~ glue::glue("## ALS coverage added on {format(.y, '%B %d, %Y')}\n\n![]({.x}){{width=100%}}\n\n")
)

knitr::asis_output(paste(output, collapse = "\n"))
```

```{=html}
</div>
```

```{r, echo=FALSE, warning=FALSE, message=FALSE, results='asis'}
site_footer(coverage_file_date)
```