-
Notifications
You must be signed in to change notification settings - Fork 0
/
Sentinel_Report.Rmd
118 lines (91 loc) · 3.2 KB
/
Sentinel_Report.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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
---
title: "SENTINEL Sensor Report "
header-includes: \usepackage{float}
output:
html_document:
fig_crop: no
params:
plotBC:
plotWD:
plotWS:
plotCT:
plotRH:
plotT:
plotCAL:
WR:
SDI:
SN:
OutputDate:
always_allow_html: true
---
```{r setup, include=FALSE}
```
```{r echo=FALSE, message=FALSE, warning=FALSE, results= "asis"}
# create leading lines of document
a <- paste0("Sensor Unit: ", params$SN)
e <- paste0("Output Date: ", params$OutputDate)
i <- paste0(" ")
cat(paste0(
a, '\n','\n',
e, '\n','\n',
i, '\n','\n'
))
```
Wind Rose and Source Direction Indicator Plots
```{r, fig.height=4, fig.width=9, out.height="100%", out.width="100%", echo=FALSE, error=FALSE, warning=FALSE, message = FALSE, fig.pos='H'}
WR <- params$WR
SDI <- params$SDI
WR
SDI
```
Time Series Plots
##### Baseline Corrected Signal
```{r, fig.height=4, fig.width=9, out.height="100%", out.width="100%", echo=FALSE, error=FALSE, warning=FALSE, message = FALSE, fig.pos='H'}
# Baseline Correction and Signal
fig <- params$plotBC %>%
layout(autosize = F, width = 1000, height = 500)
tmpFile <- tempfile(fileext = ".png")
export(fig, file = tmpFile)
```
##### Wind Direction & Signal
```{r, fig.height=4, fig.width=9, out.height="100%", out.width="100%", echo=FALSE, error=FALSE, warning=FALSE, message = FALSE,fig.pos='H'}
fig2 <- params$plotWD %>%
layout(autosize = F,width = 1000, height = 500)
tmpFile2 <- tempfile(fileext = ".png")
export(fig2, file = tmpFile2)
```
##### Wind Speed & Signal
```{r, fig.height=4, fig.width=9, out.height="100%", out.width="100%", echo=FALSE, error=FALSE, warning=FALSE, message = FALSE,fig.pos='H'}
fig2 <- params$plotWS %>%
layout(autosize = F,width = 1000, height = 500)
tmpFile2 <- tempfile(fileext = ".png")
export(fig2, file = tmpFile2)
```
##### Canister Triggers & Signal
```{r, fig.height=4, fig.width=9, out.height="100%", out.width="100%", echo=FALSE, error=FALSE, warning=FALSE, message = FALSE, fig.pos='H'}
fig3 <- params$plotCT %>%
layout(autosize = F, width = 1000, height = 500)
tmpFile3 <- tempfile(fileext = ".png")
export(fig3, file = tmpFile3)
```
##### Relative Humidity & Signal
```{r, fig.height=4, fig.width=9, out.height="100%", out.width="100%", echo=FALSE, error=FALSE, warning=FALSE, message = FALSE, fig.pos='H'}
fig3 <- params$plotRH %>%
layout(autosize = F, width = 1000, height = 500)
tmpFile3 <- tempfile(fileext = ".png")
export(fig3, file = tmpFile3)
```
##### Temperature & Signal
```{r, fig.height=4, fig.width=9, out.height="100%", out.width="100%", echo=FALSE, error=FALSE, warning=FALSE, message = FALSE, fig.pos='H'}
fig3 <- params$plotT %>%
layout(autosize = F, width = 1000, height = 500)
tmpFile3 <- tempfile(fileext = ".png")
export(fig3, file = tmpFile3)
```
##### Calibrations & Signal
```{r, fig.height=4, fig.width=9, out.height="100%", out.width="100%", echo=FALSE, error=FALSE, warning=FALSE, message = FALSE, fig.pos='H'}
fig3 <- params$plotCAL %>%
layout(autosize = F, width = 1000, height = 500)
tmpFile3 <- tempfile(fileext = ".png")
export(fig3, file = tmpFile3)
```