-
Notifications
You must be signed in to change notification settings - Fork 0
/
index.rmd
98 lines (78 loc) · 2.87 KB
/
index.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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
---
title: ""
output: html_document
---
```{r setup, include=FALSE}
htmltools::tagList(rmarkdown::html_dependency_font_awesome())
knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(dpi = 300)
knitr::opts_chunk$set(warning = FALSE)
knitr::opts_chunk$set(message = FALSE)
source(here::here('R', '00_vis_custom.R'))
source(here::here('R', '00_load-packages.R'))
```
```{r load-data, include = FALSE, results = FALSE}
source(here::here('R', '02.2_load_all_data.R')) # updated 2021-12-03
```
<!-- <div class="jumbotron"> -->
<!-- <h1 class="display-3">Refining techniques for high-frequency monitoring of chlorophyll in the NERRS</h1> -->
<!-- </div> -->
***
<div class="jumbotron">
<center><h2><b> Updates (2021-12-03)</h2></b> <br>
<p>This is the Data Viewer for the Chlorophyll NERRS Catalyst Project designed to be used by the project team. This site contains updated content from data updates versions 1.1 and 2.0 plus additional functionality for reserve-specific data visualizations and summary tables. </p> <br>
<p> This site was last updated on `r Sys.Date()` with final project data that has been QAQC'd and compiled from the <a href = "https://drive.google.com/drive/u/2/folders/1_DjiVtWL3VLHoOms8rEUhiUfbVdz83MH"> <i class="fab fa-google-drive" aria-hidden="true"></i> Google Drive </a> data folders.</p></center>
</div>
***
# Participating Reserves and Provided Data:
```{r reserves-1}
reserves <- tribble(
~no, ~reserve,
1, "ELK",
2, "GND",
3, "GRB",
4, "GTM",
5, "HEE",
6, "LKS",
7, "MAR",
8, "NIW",
9, "OWC",
10, "PDB",
11, "SAP",
12, "WEL"
)
interf <- tribble(
~no, ~reserve, ~fDOM, ~Turbidity, ~Temperature,
1, "ELK", "", "", "",
2, "GND", "", "", "",
3, "GRB", "", "", "",
4, "GTM", "X", "X", "X",
5, "HEE", "", "X", "X",
6, "LKS", "X", "", "",
7, "MAR", "", "X", "",
8, "NIW", "X", "X", "X",
9, "OWC", "X", "", "",
10, "PDB", "", "", "X",
11, "SAP", "", "", "",
12, "WEL", "", "", ""
)
a <- as_tibble(unique(isco$reserve_code)) %>% rename(reserve = value) %>% mutate(ISCO = 'X')
b <- as_tibble(unique(tank$reserve_code)) %>% rename(reserve = value) %>% mutate(Tank = 'X')
d <- left_join(reserves, a, by = "reserve") %>%
left_join(b, by = "reserve") %>%
left_join(interf, by = "reserve") %>%
select(-contains("no")) %>%
rename(Reserve = reserve)
d <- sapply(d, as.character)
d[is.na(d)] <- " "
d <- as.data.frame(d)
d %>%
kbl(align = "c", caption = "Reserves and types of data that were collected for the project including interference testing for fDOM, turbidity, and temperature parameters.") %>%
kable_styling(fixed_thead = T) %>%
row_spec(0, bold = T) %>%
column_spec(1, border_right = T) %>%
column_spec(3, border_right = T) %>%
kable_classic(c('striped', 'hover'), html_font = "Open Sans", full_width = F)
rm(reserves, interf, a, b, d)
```