---
title: "SW US Monsoon Precipitation Mapping - Past Seasons"
date: ""
output:
  rmdformats::html_clean:
    thumbnails: false
    lightbox: false
    gallery: false
    fig_caption : false
    highlight: kate
---
******

<b>Click on a map to access the seasonal summary page for that year</b>

[Return to main page here](https://cals.arizona.edu/climate/misc/SWMonsoonMaps/current/swus_monsoon.html)

```{r knitr_init, echo=FALSE, cache=FALSE}
library(knitr)
library(rmdformats)

## Global options
options(max.print="75")
opts_chunk$set(echo=FALSE,
	             cache=TRUE,
               prompt=FALSE,
               tidy=TRUE,
               comment=NA,
               message=FALSE,
               warning=FALSE)
opts_knit$set(width=75)
```


```{r, results = 'asis', fig.cap=TRUE, cache=FALSE}

yrs<-list.dirs(path = "/home/crimmins/RProjects/SWMonsoonMaps/monsoonMapshistorical/", full.names = FALSE, recursive = FALSE)

for(i in yrs){
  imagename <- file.path("/home","crimmins","RProjects","SWMonsoonMaps","monsoonMapshistorical",as.character(i),"SW_Monsoon_PercentPrecip.png")
  filename <- file.path(as.character(i),"index.html")
    cat("<div align='center'><b>")
      cat(as.character(i), "\n\n")
    cat("</div></b>")
  cat("[![DailyPrecip](",imagename,")](",filename,")\n")
  cat("\n\n")
}
```

-----

<div align="center">
  <h6>
  Last Updated: "`r format(Sys.time(), '%m-%d-%Y')`"© 2025 The Arizona Board of Regents. All contents copyrighted. All rights reserved.</h6>
</div>
