training modifications

CU-ESIIL · May 1, 2024 · 9ade447 · 9ade447
1 parent 0b5dc8e
commit 9ade447
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 8 deletions.
diff --git a/docs/trainings/Denver_redline.png b/docs/trainings/Denver_redline.png
diff --git a/docs/trainings/training_2_code.qmd b/docs/trainings/training_2_code.qmd
@@ -3,6 +3,7 @@ title: "Pre-summit training"
 format: gfm
 ---
 
+# Here is a header 
 
 ```{r, collapse=TRUE}
 if (!requireNamespace("tidytext", quietly = TRUE)) {
@@ -20,7 +21,7 @@ library(gdalcubes)
 library(colorspace)
 library(terra)
 library(tidyterra)
-library(basemapR)
+
 library(tidytext)
 library(ggwordcloud)
 library(osmextract)
@@ -34,6 +35,18 @@ library(purrr)
 
 
 
+```{r}
+require(terra)
+require(tictoc)
+system("cp -r ~/data-store/data/iplant/home/shared/earthlab/forest_carbon_codefest/TreeMap ~/TreeMap") #move the data first!!
+tictoc::tic()
+treemap <- terra::rast("~/TreeMap/treemap2016_southernrockies.tif")
+terra::plot(treemap)
+```
+
+
+
+
 ```{r}
  address <- "https://www.denvergov.org/media/gis/DataCatalog/tree_inventory/shape/tree_inventory.zip"
 inner_file <- "tree_inventory.shp"
@@ -43,6 +56,14 @@ inner_file <- "tree_inventory.shp"
 ```
 
 
+```{r}
+redlining_data <- read_sf(url)
+  city_redline <- redlining_data |>
+    filter(city == "Denver" & city_survey == "TRUE" & grade != "")
+  
+city_redline
+```
+
 ```{r}
  url <- "https://raw.githubusercontent.com/americanpanorama/mapping-inequality-census-crosswalk/main/MIv3Areas_2010TractCrosswalk.geojson"
 
@@ -59,13 +80,7 @@ city_state_df
 
 
 
-```{r}
-redlining_data <- read_sf(url)
-  city_redline <- redlining_data |>
-    filter(city == "Denver" & city_survey == "TRUE" & grade != "")
-  
-city_redline
-```
+