index.Rmd

---
title: "Elk Expeditions: The Elk, the Environment, and the Evolving Migration in Yellowstone"
output: 
  html_document:
    code_folding: hide
    always_allow_html: true
    toc: true
    toc_float: true
---

```{r, include = FALSE}
library(tidyverse)
library(leaflet)
library(leaflet.extras2)
```

```{r, include = FALSE}
# read data
elk_df = read_csv("clean_data/elk.csv") |>
  mutate(datetime = make_datetime(year, month, day, hour)) |>
  dplyr::select(elk_id, datetime, lat, long)
```

---

### Welcome

<img src="pics/elk_1.jpg" alt="Description">

<center style="font-size: 10px;"> Photo from:  https://www.yellowstone.org/ </center>

We will be exploring the movement of 17 female elk through Yellowstone and the Grand Tetons National Park from 2006 to 2015. Environmental factors such as weather, land cover, and water quality will be analyzed for causing  differences in elk migration.  


---

### Meet the Elk in Yellowstone

Hover over each point on the map to see the elk ID and time.

```{r}
# Let's make a custom elk icon!!
moose_icon <- makeIcon(
  iconUrl = "pics/elk_icon.png", # Replace with the URL of your moose image
  iconWidth = 30, iconHeight = 30
)

elk_df |>
  filter(year(datetime) == 2012,
         month(datetime) == 5) |>
  leaflet() |>
  addProviderTiles(providers$CartoDB.Positron, group = "Base Map") |>
  addProviderTiles(providers$Esri.NatGeoWorldMap, group = "NatGeo Map") |>
   addMarkers(
    lng = ~long, lat = ~lat,
    icon = moose_icon,  # Use the custom icon
    popup = ~paste("Elk ID:", elk_id, "Date", date(datetime))  # Add a popup with Elk ID
  )
    
```

---

### Screen cast 

Take a tour of our website!

```{css, echo = FALSE}
.video-container { 
  position: relative; 
  padding-bottom: 56.25%; 
  padding-top: 30px; 
  height: 0; 
  overflow: hidden; 
}

.video-container iframe, .video-container object, .video-container embed { 
  position: absolute; 
  top: 0; 
  left: 0; 
  width: 100%; 
  height: 100%; 
}
```

<div class="video-container">
<iframe width="560" height="315" src="https://www.youtube.com/embed/GoROslWZ984?si=DQQLEp3TLWnp7xcY" title="YouTube video player" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe>

<br>