Appendix - Assessment Data Summary

Fish passage assessment procedures conducted through SERNbc since 2020 are amalgamated in Tables 5.2 - 5.3. Since 2020, orthoimagery and elevation model rasters have been generated and stored as Cloud Optimized Geotiffs on a cloud service provider (AWS) with select imagery linked to in the collaborative GIS project. Additionally, a tile service has been set up to facilitate viewing and downloading of individual images, provided in Appendix - UAV Imagery.

sites_all <- arrow::read_parquet("data/snapshots/fp_sites_tracking.parquet")

# Use the project-wide watershed-group name vector from 0105-params-derived.R
# (derived from params$wsg_code via xref_wsg) rather than a hardcoded list —
# keeps this appendix region-agnostic across template / Peace / Fraser builds.

sites_all_summary <- sites_all |>
  dplyr::mutate(
    uav = dplyr::case_when(
      !is.na(link_uav1) ~ "yes",
      T ~ NA_character_
    )) |>
  dplyr::filter(watershed_group %in% wsg_names) |>
  dplyr::group_by(watershed_group) |>
  dplyr::summarise(
    dplyr::across(assessment:fish_sampling, ~ sum(!is.na(.x))),
    uav = sum(!is.na(uav))
  ) |>
  sf::st_drop_geometry() |>
  dplyr::rename_with(~ stringr::str_replace_all(., "_", " ") |>
                       stringr::str_to_title()) |>
  dplyr::rename(
    `Drone Imagery` = Uav) |>
  janitor::adorn_totals() |>
  dplyr::mutate(dplyr::across(everything(), as.character))

my_caption = "Summary of fish passage assessment procedures conducted in the FWCP Peace Region."
my_tab_caption(tip_flag = F)

sites_all_summary |>
  my_dt_table(
    page_length = 20,
    cols_freeze_left = 0
              )

my_caption = "Summary of fish passage assessment procedures conducted by SERNbc in the FWCP Peace Region."
sites_all_summary |>
  fpr::fpr_kable(
    caption_text = my_caption,
    scroll = gitbook_on,
    scroll_box_height = "200px"
  )

Table 5.2: Summary of fish passage assessment procedures conducted by SERNbc in the FWCP Peace Region.

Watershed Group	Assessment	Reassessment	Habitat Confirmation	Design	Remediation	Fish Sampling	Drone Imagery
Carp Lake	15	3	3	0	0	0	0
Crooked River	57	6	4	0	0	1	0
Parsnip River	30	10	20	5	3	6	4
Total	102	19	27	5	3	7	4

my_caption = "Details of fish passage assessment procedures conducted by SERNbc in the FWCP Peace Region."
my_tab_caption(tip_flag = FALSE)

Table 5.3: Details of fish passage assessment procedures conducted by SERNbc in the FWCP Peace Region.

sites_all |>
  dplyr::filter(watershed_group %in% wsg_names) |>
  sf::st_drop_geometry() |>
  dplyr::mutate(dplyr::across(everything(), as.character)) |>
  dplyr::relocate(watershed_group, .after = my_crossing_reference) |>
  dplyr::select(-idx) |>
  dplyr::rename_with(~ . |>
                       stringr::str_replace_all("_", " ") |>
                       stringr::str_replace_all("repo", "Report") |>
                       stringr::str_replace_all("uav", "Drone") |>
                       stringr::str_to_title()) |>
  my_dt_table(
    cols_freeze_left = 1,
    escape = FALSE
  )