---
title: "Getting Comfortable"
author: J. Hathaway
params:
  day: 20
  ptitle: true
  pbackground: true
  dtype: "none"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)

if (params$day %% 2 == 0) md_intro_format <- "even_intro_format.Rmd"
if (params$day %% 2 == 1) md_intro_format <- "odd_intro_format.Rmd"

```

```{r child=md_intro_format}

```


# Class Discussion {data-background=#e8d725}

## Tracking Progress

> - Don't forget to keep track of your tasks.
> - Semester project should be moving along.
> - Check out week 13 work and make sure you are working on this.

## Semester Project Discussion

> - If you would like to alter the project, then post a comment to the semester project issue with your update.
> - Call me out and ask me to review and approve changes.


## Task 20 Question

Write out in a sentence what this code is doing. Make sure to catch the key points in your sentence

```{r p1, eval=FALSE, echo=TRUE}
pacman::p_load(downloader, sf, fs, tidyverse)
dams_path <- "https://research.idwr.idaho.gov/gis/Spatial/Hydrography/streams_lakes/c_250k/hyd250.zip"
df <- tempfile(); uf <- tempfile()
download(dams_path, df, mode = "wb")
unzip(df, exdir = uf)
rivers <- read_sf(uf)
file_delete(df); dir_delete(uf)

```

## Convert to another projection

[Chapter 6: Reprojecting geographic data](https://geocompr.robinlovelace.net/reproj-geo-data.html#which-crs-to-use)

> * Take a minute and look up projections that you like and get your Task 19 or 20 graphic into that projection - https://proj.org/operations/projections/index.html and https://proj.org/usage/projections.html.
> * [Class activity](https://byuistats.github.io/M335/spatial_class.html) 
>     * http://spatialreference.org/ref/
>     * https://en.wikipedia.org/wiki/List_of_map_projections
<!-- https://pubs.usgs.gov/of/1990/0284/report.pdf -->

