diff --git a/docs/trainings/Denver_redline.png b/docs/trainings/Denver_redline.png index bd9b6d69..bf3e7b7c 100644 Binary files a/docs/trainings/Denver_redline.png and b/docs/trainings/Denver_redline.png differ diff --git a/docs/trainings/training_2_code.qmd b/docs/trainings/training_2_code.qmd index 344b4ad9..78a18d1a 100644 --- 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 -``` +