[custom] fix lesson contents

Author: zkamvar

.Rbuildignore

@@ -1,3 +1,5 @@
+^renv$
+^renv\.lock$
 ^\.travis\.yml$
 ^appveyor\.yml$
 ^tic\.R$

episodes/01-raster-structure.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 knitr::opts_chunk$set(fig.height = 6)
 ```
 

episodes/02-raster-plot.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 ```
 
 ::::::::::::::::::::::::::::::::::::::: objectives

episodes/03-raster-reproject-in-r.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 ```
 
 ::::::::::::::::::::::::::::::::::::::: objectives
@@ -296,38 +296,42 @@ field site using the `SJER_DSMhill_WGS84.tif` and `SJER_dsmCrop.tif` files.
 
 Reproject the data as necessary to make things line up!
 
-> ## Answers
-> 
-> ```{r challenge-code-reprojection, echo=TRUE}
-> # import DSM
-> DSM_SJER <- raster("data/NEON-DS-Airborne-Remote-Sensing/SJER/DSM/SJER_dsmCrop.tif")
-> # import DSM hillshade
-> DSM_hill_SJER_WGS <-
-> raster("data/NEON-DS-Airborne-Remote-Sensing/SJER/DSM/SJER_DSMhill_WGS84.tif")
-> 
-> # reproject raster
-> DTM_hill_UTMZ18N_SJER <- projectRaster(DSM_hill_SJER_WGS,
->                                   crs = crs(DSM_SJER),
->                                   res = 1)
-> 
-> # convert to data.frames
-> DSM_SJER_df <- as.data.frame(DSM_SJER, xy = TRUE)
-> 
-> DSM_hill_SJER_df <- as.data.frame(DTM_hill_UTMZ18N_SJER, xy = TRUE)
-> 
-> ggplot() +
->      geom_raster(data = DSM_hill_SJER_df, 
->                  aes(x = x, y = y, 
->                    alpha = SJER_DSMhill_WGS84)
->                  ) +
->      geom_raster(data = DSM_SJER_df, 
->              aes(x = x, y = y, 
->                   fill = SJER_dsmCrop,
->                   alpha=0.8)
->              ) + 
->      scale_fill_gradientn(name = "Elevation", colors = terrain.colors(10)) + 
->      coord_quickmap()
-> ```
+:::::::::::::::  solution
+
+## Answers
+
+```{r challenge-code-reprojection, echo=TRUE}
+# import DSM
+DSM_SJER <- raster("data/NEON-DS-Airborne-Remote-Sensing/SJER/DSM/SJER_dsmCrop.tif")
+# import DSM hillshade
+DSM_hill_SJER_WGS <-
+raster("data/NEON-DS-Airborne-Remote-Sensing/SJER/DSM/SJER_DSMhill_WGS84.tif")
+
+# reproject raster
+DTM_hill_UTMZ18N_SJER <- projectRaster(DSM_hill_SJER_WGS,
+                                  crs = crs(DSM_SJER),
+                                  res = 1)
+
+# convert to data.frames
+DSM_SJER_df <- as.data.frame(DSM_SJER, xy = TRUE)
+
+DSM_hill_SJER_df <- as.data.frame(DTM_hill_UTMZ18N_SJER, xy = TRUE)
+
+ggplot() +
+     geom_raster(data = DSM_hill_SJER_df, 
+                 aes(x = x, y = y, 
+                   alpha = SJER_DSMhill_WGS84)
+                 ) +
+     geom_raster(data = DSM_SJER_df, 
+             aes(x = x, y = y, 
+                  fill = SJER_dsmCrop,
+                  alpha=0.8)
+             ) + 
+     scale_fill_gradientn(name = "Elevation", colors = terrain.colors(10)) + 
+     coord_quickmap()
+```
+
+:::::::::::::::::::::::::
 
 If you completed the San Joaquin plotting challenge in the
 [Plot Raster Data in R](02-raster-plot/)

episodes/04-raster-calculations-in-r.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 ```
 
 ::::::::::::::::::::::::::::::::::::::: objectives

episodes/05-raster-multi-band-in-r.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 ```
 
 ::::::::::::::::::::::::::::::::::::::: objectives

episodes/06-vector-open-shapefile-in-r.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 ```
 
 ::::::::::::::::::::::::::::::::::::::: objectives

episodes/07-vector-shapefile-attributes-in-r.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 ```
 
 ::::::::::::::::::::::::::::::::::::::: objectives

episodes/08-vector-plot-shapefiles-custom-legend.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 ```
 
 ::::::::::::::::::::::::::::::::::::::: objectives

episodes/09-vector-when-data-dont-line-up-crs.Rmd

@@ -6,7 +6,7 @@ source: Rmd
 ---
 
 ```{r setup, echo=FALSE}
-source("../setup.R")
+source("setup.R")
 ```
 
 ::::::::::::::::::::::::::::::::::::::: objectives