mirror of
https://github.com/sensebox/opensensmapr
synced 2025-06-08 18:36:08 +02:00
remove progress output from vignette
This commit is contained in:
parent
3f46a52b3c
commit
c5b6e5d4a1
4 changed files with 32 additions and 501 deletions
|
@ -1,11 +1,13 @@
|
||||||
## ----setup, include=FALSE------------------------------------------------
|
## ----setup, include=FALSE------------------------------------------------
|
||||||
knitr::opts_chunk$set(echo = TRUE)
|
knitr::opts_chunk$set(echo = TRUE)
|
||||||
|
|
||||||
## ------------------------------------------------------------------------
|
## ----results = F---------------------------------------------------------
|
||||||
library(magrittr)
|
library(magrittr)
|
||||||
library(opensensmapr)
|
library(opensensmapr)
|
||||||
|
|
||||||
all_sensors = osem_boxes()
|
all_sensors = osem_boxes()
|
||||||
|
|
||||||
|
## ------------------------------------------------------------------------
|
||||||
summary(all_sensors)
|
summary(all_sensors)
|
||||||
|
|
||||||
## ----message=F, warning=F------------------------------------------------
|
## ----message=F, warning=F------------------------------------------------
|
||||||
|
@ -22,13 +24,14 @@ str(phenoms)
|
||||||
## ------------------------------------------------------------------------
|
## ------------------------------------------------------------------------
|
||||||
phenoms[phenoms > 20]
|
phenoms[phenoms > 20]
|
||||||
|
|
||||||
## ------------------------------------------------------------------------
|
## ----results = F---------------------------------------------------------
|
||||||
pm25_sensors = osem_boxes(
|
pm25_sensors = osem_boxes(
|
||||||
exposure = 'outdoor',
|
exposure = 'outdoor',
|
||||||
date = Sys.time(), # ±4 hours
|
date = Sys.time(), # ±4 hours
|
||||||
phenomenon = 'PM2.5'
|
phenomenon = 'PM2.5'
|
||||||
)
|
)
|
||||||
|
|
||||||
|
## ------------------------------------------------------------------------
|
||||||
summary(pm25_sensors)
|
summary(pm25_sensors)
|
||||||
plot(pm25_sensors)
|
plot(pm25_sensors)
|
||||||
|
|
||||||
|
@ -45,6 +48,7 @@ berlin = st_point(c(13.4034, 52.5120)) %>%
|
||||||
st_transform(4326) %>% # the opensensemap expects WGS 84
|
st_transform(4326) %>% # the opensensemap expects WGS 84
|
||||||
st_bbox()
|
st_bbox()
|
||||||
|
|
||||||
|
## ----results = F---------------------------------------------------------
|
||||||
pm25 = osem_measurements(
|
pm25 = osem_measurements(
|
||||||
berlin,
|
berlin,
|
||||||
phenomenon = 'PM2.5',
|
phenomenon = 'PM2.5',
|
||||||
|
|
|
@ -35,11 +35,13 @@ this occurs.
|
||||||
Before we look at actual observations, lets get a grasp of the openSenseMap
|
Before we look at actual observations, lets get a grasp of the openSenseMap
|
||||||
datasets' structure.
|
datasets' structure.
|
||||||
|
|
||||||
```{r}
|
```{r results = F}
|
||||||
library(magrittr)
|
library(magrittr)
|
||||||
library(opensensmapr)
|
library(opensensmapr)
|
||||||
|
|
||||||
all_sensors = osem_boxes()
|
all_sensors = osem_boxes()
|
||||||
|
```
|
||||||
|
```{r}
|
||||||
summary(all_sensors)
|
summary(all_sensors)
|
||||||
```
|
```
|
||||||
|
|
||||||
|
@ -86,13 +88,14 @@ We should check how many sensor stations provide useful data: We want only those
|
||||||
boxes with a PM2.5 sensor, that are placed outdoors and are currently submitting
|
boxes with a PM2.5 sensor, that are placed outdoors and are currently submitting
|
||||||
measurements:
|
measurements:
|
||||||
|
|
||||||
```{r}
|
```{r results = F}
|
||||||
pm25_sensors = osem_boxes(
|
pm25_sensors = osem_boxes(
|
||||||
exposure = 'outdoor',
|
exposure = 'outdoor',
|
||||||
date = Sys.time(), # ±4 hours
|
date = Sys.time(), # ±4 hours
|
||||||
phenomenon = 'PM2.5'
|
phenomenon = 'PM2.5'
|
||||||
)
|
)
|
||||||
|
```
|
||||||
|
```{r}
|
||||||
summary(pm25_sensors)
|
summary(pm25_sensors)
|
||||||
plot(pm25_sensors)
|
plot(pm25_sensors)
|
||||||
```
|
```
|
||||||
|
@ -117,7 +120,8 @@ berlin = st_point(c(13.4034, 52.5120)) %>%
|
||||||
st_buffer(units::set_units(12, km)) %>%
|
st_buffer(units::set_units(12, km)) %>%
|
||||||
st_transform(4326) %>% # the opensensemap expects WGS 84
|
st_transform(4326) %>% # the opensensemap expects WGS 84
|
||||||
st_bbox()
|
st_bbox()
|
||||||
|
```
|
||||||
|
```{r results = F}
|
||||||
pm25 = osem_measurements(
|
pm25 = osem_measurements(
|
||||||
berlin,
|
berlin,
|
||||||
phenomenon = 'PM2.5',
|
phenomenon = 'PM2.5',
|
||||||
|
@ -136,4 +140,4 @@ pm25_sf = osem_as_sf(pm25)
|
||||||
plot(st_geometry(pm25_sf), axes = T)
|
plot(st_geometry(pm25_sf), axes = T)
|
||||||
```
|
```
|
||||||
|
|
||||||
`TODO`
|
further analysis: `TODO`
|
||||||
|
|
File diff suppressed because one or more lines are too long
|
@ -35,11 +35,13 @@ this occurs.
|
||||||
Before we look at actual observations, lets get a grasp of the openSenseMap
|
Before we look at actual observations, lets get a grasp of the openSenseMap
|
||||||
datasets' structure.
|
datasets' structure.
|
||||||
|
|
||||||
```{r}
|
```{r results = F}
|
||||||
library(magrittr)
|
library(magrittr)
|
||||||
library(opensensmapr)
|
library(opensensmapr)
|
||||||
|
|
||||||
all_sensors = osem_boxes()
|
all_sensors = osem_boxes()
|
||||||
|
```
|
||||||
|
```{r}
|
||||||
summary(all_sensors)
|
summary(all_sensors)
|
||||||
```
|
```
|
||||||
|
|
||||||
|
@ -86,13 +88,14 @@ We should check how many sensor stations provide useful data: We want only those
|
||||||
boxes with a PM2.5 sensor, that are placed outdoors and are currently submitting
|
boxes with a PM2.5 sensor, that are placed outdoors and are currently submitting
|
||||||
measurements:
|
measurements:
|
||||||
|
|
||||||
```{r}
|
```{r results = F}
|
||||||
pm25_sensors = osem_boxes(
|
pm25_sensors = osem_boxes(
|
||||||
exposure = 'outdoor',
|
exposure = 'outdoor',
|
||||||
date = Sys.time(), # ±4 hours
|
date = Sys.time(), # ±4 hours
|
||||||
phenomenon = 'PM2.5'
|
phenomenon = 'PM2.5'
|
||||||
)
|
)
|
||||||
|
```
|
||||||
|
```{r}
|
||||||
summary(pm25_sensors)
|
summary(pm25_sensors)
|
||||||
plot(pm25_sensors)
|
plot(pm25_sensors)
|
||||||
```
|
```
|
||||||
|
@ -117,7 +120,8 @@ berlin = st_point(c(13.4034, 52.5120)) %>%
|
||||||
st_buffer(units::set_units(12, km)) %>%
|
st_buffer(units::set_units(12, km)) %>%
|
||||||
st_transform(4326) %>% # the opensensemap expects WGS 84
|
st_transform(4326) %>% # the opensensemap expects WGS 84
|
||||||
st_bbox()
|
st_bbox()
|
||||||
|
```
|
||||||
|
```{r results = F}
|
||||||
pm25 = osem_measurements(
|
pm25 = osem_measurements(
|
||||||
berlin,
|
berlin,
|
||||||
phenomenon = 'PM2.5',
|
phenomenon = 'PM2.5',
|
||||||
|
@ -136,4 +140,4 @@ pm25_sf = osem_as_sf(pm25)
|
||||||
plot(st_geometry(pm25_sf), axes = T)
|
plot(st_geometry(pm25_sf), axes = T)
|
||||||
```
|
```
|
||||||
|
|
||||||
`TODO`
|
further analysis: `TODO`
|
||||||
|
|
Loading…
Add table
Reference in a new issue