---
title: "Hurricanes"
runtime: shiny
output: html_document
---

Between 1995 and 2000, 79 "named" storms developed in the Atlantic Ocean. These are storms that reached Tropical Depression status or greater. However, the strength of each storm fluctuated throughout its lifetime.

```{r echo = FALSE}
source("./storm_helpers.R")

selectInput("name", "Choose a storm:",
  choices = sort(unique(storms$name)), 
  selected = storms$name[1])
```

```{r echo = FALSE}
renderPlot(storm_plot(input$name))
```