generated from NewGraphEnvironment/fish_passage_skeena_2022_reporting
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy path0650-appendix-climate-change.Rmd
49 lines (39 loc) · 2.11 KB
/
0650-appendix-climate-change.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# Appendix - Climate Change Risk Assessment {-}
Climate change risk assessment data is presented below. Work to date is considered a pilot project with data collected considered preliminary. Data collected are presented `r if(identical(gitbook_on, FALSE)){knitr::asis_output("online [here](https://newgraphenvironment.github.io/fish_passage_skeena_2023_reporting/)")}else{knitr::asis_output("in Tables \\@ref(tab:tab-moti-climate-phase1) - \\@ref(tab:tab-moti-climate-phase2).")}`
```{r tab-moti-climate-phase1, eval = gitbook_on}
df_transpose <- function(df) {
df %>%
tidyr::pivot_longer(-1) %>%
tidyr::pivot_wider(names_from = 1, values_from = value)
}
tab_moti_phase1 %>%
select(-contains('Describe'), -contains('Crew')) %>%
rename(Site = pscis_crossing_id,
'External ID' = my_crossing_reference,
`MoTi ID` = moti_chris_culvert_id,
Stream = stream_name,
Road = road_name) %>%
mutate(across(everything(), as.character)) %>%
tibble::rownames_to_column() %>%
df_transpose() %>%
janitor::row_to_names(row_number = 1) %>%
fpr::fpr_kable(scroll = gitbook_on,
caption_text = 'Preliminary climate change risk assessment data for Ministry of Transportation and Infrastructure sites (Phase 1 PSCIS)')
```
<br>
```{r tab-moti-climate-phase2, eval = gitbook_on}
tab_moti_phase2 %>%
purrr::set_names(nm = xref_moti_climate_names %>% pull(report)) %>%
select(-my_crossing_reference) %>%
select(-contains('Describe'), -contains('Crew')) %>%
rename(Site = pscis_crossing_id,
`MoTi ID` = moti_chris_culvert_id,
Stream = stream_name,
Road = road_name) %>%
mutate(across(everything(), as.character)) %>%
tibble::rownames_to_column() %>%
df_transpose() %>%
janitor::row_to_names(row_number = 1) %>%
fpr::fpr_kable(scroll = gitbook_on,
caption_text = 'Preliminary climate change risk assessment data for habitat confirmation sites. Note that none of the Phase 2 sites were located on Ministry of Transportation and Infrastructure infrastructure however the data was collected so is presented below.')
```