From b6807979630367fb3d5cf7beb423bd3ef7818fc2 Mon Sep 17 00:00:00 2001
From: mikejohnson51
## # Source: SQL [1 x 7]
## # Database: sqlite 3.45.2 [/Users/mjohnson/github/hydrofabric/vignettes/tutorial/poudre.gpkg]
## fid geom divide_id areasqkm has_flowline id vpuid
## <int> <blob> <dbl> <dbl> <int> <dbl> <chr>
## 1 1 <raw 2.21 kB> 2896607 10.2 1 2896607 10L
-hydrofabric::as_sqlite(gpkg, "divides") %>%
- dplyr::filter(divide_id == 2896607) %>%
- hydrofabric::read_sf_dataset_sqlite()
as_sqlite(gpkg, "divides") %>%
+ filter(divide_id == 2896607) %>%
+ read_sf_dataset_sqlite()
## Simple feature collection with 1 feature and 6 fields
## Geometry type: POLYGON
## Dimension: XY
@@ -430,14 +461,14 @@ Local GPKG## * <int> <POLYGON [m]> <dbl> <dbl> <int> <dbl> <chr>
## 1 1 ((-779895 2037405, -779835… 2896607 10.2 1 2.90e6 10L
-
-arrow::open_dataset(glue::glue("{local_source}/{version}/{type}/conus_network/")) %>%
- dplyr::filter(id == 101) %>%
- dplyr::select(id, toid) %>%
- dplyr::collect()
open_dataset(glue("{local_source}/{version}/{type}/conus_network/")) %>%
+ filter(id == 101) %>%
+ select(id, toid) %>%
+ collect()
## # A tibble: 1 × 2
## id toid
## <dbl> <dbl>
@@ -449,29 +480,18 @@ Parquet Store# toid) %>% > dplyr::collect()
-## NOTE: What is glue?
-x <- "Welcome to DevCon"
-y <- "2024"
-z <- c("2023", "2024", "2025", "...")
-
-# single string
-glue("{x} {y}")
## Welcome to DevCon 2024
-
-# multiple strings from vectors
-glue("{x} {z}")
## Welcome to DevCon 2023
-## Welcome to DevCon 2024
-## Welcome to DevCon 2025
-## Welcome to DevCon ...
-
-## NOTE: Finding help/docs
-`?`(read_hydrofabric)
Last year we highlighted a system that was built largely around VPU
+level gpkgs. While we no longer distribute these files, there is a
+utility function hfsubsetR::get_vpu_fabric
that will
+extract a VPU level GPKG to a outfile of choice.
+get_vpu_fabric("01", type = "reference", hf_version = "2.2",
+ outfile = "/Users/mjohnson/Downloads/01_ref_2.2.gpkg")
## [1] "/Users/mjohnson/Downloads/01_ref_2.2.gpkg"
Developed by Mike Johnson.
+Developed by Mike Johnson.
## [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
## [16] TRUE TRUE
+
+## NOTE: What is glue?
+x <- "Welcome to DevCon"
+y <- "2024"
+z <- c('2023', '2024', '2025', '...')
+
+# single string
+glue("{x} {y}")
## Welcome to DevCon 2024
+
+# multiple strings from vectors
+glue("{x} {z}")
## Welcome to DevCon 2023
+## Welcome to DevCon 2024
+## Welcome to DevCon 2025
+## Welcome to DevCon ...
+
+
+If you are interested in the technical tools we use, how they are +structured, and their application please review the Background +document. While we will talk through this during the session, having a +familiarity will help as we move (quickly) through them.
+QGIS is a free and open-source geographic information system (GIS) software that allows users to visualize, analyze, and manage spatial -data. Here’s how to install QGIS on Linux, macOS, and Windows.
-You can install the binaries for your system directly from their website. Or -using the following package managers.
+data. You can install the binaries for your system directly from their +website. +Or using the following package managers.