---
title: "Static dashboard template file (with data)"
author: "DVE 2026"
format: 
  dashboard:
    theme: sketchy
    orientation: columns
editor: source
---

```{r}
dat <- read.csv("./data/noro.csv", header = TRUE, sep = "\t")
```

# Graphs

## Column {height="60%"}

::: card
Norovirus outbreak reports from State Health Departments by week of year. For more details see <https://www.cdc.gov/norovirus/php/reporting/norostat-data-table.html>.

{{< lipsum 1 >}}

```{r}
#| label: fig-box
#| fig.width: 5
#| fig.height: 5
#| fig.cap: "Weekly outbreak counts for the current year (as of 4/14/2025)."
par(mar = c(6.1, 4.1, 0.8, 0.8), xaxs  = 'i', yaxs = 'i') 
plot(dat$Yrs_2024_25, ylim = c(0, 250), pch = 19, type = 'o', cex = 0.5, las = 1, xlab = "", ylab = "", axes = F)
points(dat$Yrs_2020_21, pch = 19, type = 'o', cex = 0.5, las = 1, col = "gray")
mtext("Week of year", side = 1, line = 5, font = 2)
mtext("Reported Norovirus Outbreaks", side = 2, line = 3, font = 2)
axis(2, las = 1)
axis(1, at = seq(1, 52, by = 3), dat$Week[seq(1, 52, by = 3)], las = 3, srt = 45)
```
:::

## Column {height="60%"}

### Row {height="40%"}

<!--{{< lipsum 1 >}}-->

```{r}
#| label: fig-hist
#| fig.width: 5
#| fig.height: 5
#| fig.cap: "Scatterplot of weekly case numbers for the years 2020-21 (horizontal) and 2024-25 (vertical). "
plot(Yrs_2024_25 ~ Yrs_2020_21, dat, las = 1, xlim = c(0, 250), ylim = c(0, 250))
abline(a = 0, b = 1)
```

### Row {height="40%"}

```{r}
#| label: fig-scatter
#| fig.width: 5
#| fig.height: 5
#| fig.cap: "A scatterplot of CDC norovirus data.  Vertical axis shows the maximum number of outbreaks reported within a given calendar week across all years (horizontal axis shows the minimum number).  For example, the point (1, 9) represents the reporting of a minimum of only one outbreak reported in the week beginning August 1st, and a maximum of nine outbreaks reported during that same calendar week for some (unknown) year between 2012 and 2020."
plot(Max_2012_20 ~ Min_2012_20, dat, las = 1, xlim = c(0, 100), ylim = c(0, 100))
abline(a = 0, b = 1)
```

# Tables

## Column {width="70%"}

{{< lipsum 2 >}}

```{r}
head(dat)
```

## Column {width="30%"}

{{< lipsum 2 >}}

### Row {width="70%"}

```{r}
summary(dat)
```

### Row {width="30%"}

```{r}

```
