opensensemap/opensensmapR
1
0
Fork 0
mirror of https://github.com/sensebox/opensensmapr synced 2025-02-22 23:23:57 +01:00
Code Issues Releases Wiki Activity

fixing && error

Browse source
This commit is contained in:
jan 2023-02-01 12:47:05 +01:00
parent 35d9ee697b
commit 35c3014dee
2 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
vignettes/osem-history.Rmd
View file

@ -95,7 +95,7 @@ inconsistent (`Luftdaten`, `luftdaten.info`, ...)
grouptag_counts = boxes %>% grouptag_counts = boxes %>%
group_by(grouptag) %>% group_by(grouptag) %>%
# only include grouptags with 8 or more members # only include grouptags with 8 or more members
filter(length(grouptag) >= 8 && !is.na(grouptag)) %>% filter(length(grouptag) >= 8 & !is.na(grouptag)) %>%
mutate(count = row_number(createdAt)) mutate(count = row_number(createdAt))
# helper for sorting the grouptags by boxcount # helper for sorting the grouptags by boxcount
@ -194,7 +194,7 @@ spanning a large chunk of openSenseMap's existence.
duration = boxes %>% duration = boxes %>%
group_by(grouptag) %>% group_by(grouptag) %>%
# only include grouptags with 8 or more members # only include grouptags with 8 or more members
filter(length(grouptag) >= 8 && !is.na(grouptag) && !is.na(updatedAt)) %>% filter(length(grouptag) >= 8 & !is.na(grouptag) & !is.na(updatedAt)) %>%
mutate(duration = difftime(updatedAt, createdAt, units='days')) mutate(duration = difftime(updatedAt, createdAt, units='days'))
ggplot(duration, aes(x = grouptag, y = duration)) + ggplot(duration, aes(x = grouptag, y = duration)) +

8
vignettes/osem-history_revised.Rmd
View file

@ -15,7 +15,7 @@ output:
fig_width: 7 fig_width: 7
toc: yes toc: yes
vignette: > vignette: >
%\VignetteIndexEntry{Visualising the History of openSenseMap.org} %\VignetteIndexEntry{Visualising the Develpment of openSenseMap.org in 2022}
%\VignetteEncoding{UTF-8} %\VignetteEncoding{UTF-8}
%\VignetteEngine{knitr::rmarkdown} %\VignetteEngine{knitr::rmarkdown}
--- ---
@ -25,9 +25,7 @@ vignette: >
```{r setup, results='hide', message=FALSE, warning=FALSE} ```{r setup, results='hide', message=FALSE, warning=FALSE}
# required packages: # required packages:
# library(opensensmapr) # data download library(opensensmapr) # data download
library(devtools)
load_all(".")
library(dplyr) # data wrangling library(dplyr) # data wrangling
library(ggplot2) # plotting library(ggplot2) # plotting
library(lubridate) # date arithmetic library(lubridate) # date arithmetic
@ -140,7 +138,7 @@ inconsistent (`Luftdaten`, `luftdaten.info`, ...)
grouptag_counts = boxes %>% grouptag_counts = boxes %>%
group_by(grouptag) %>% group_by(grouptag) %>%
# only include grouptags with 15 or more members # only include grouptags with 15 or more members
filter(length(grouptag) >= 15 && !is.na(grouptag) && grouptag != '') %>% filter(length(grouptag) >= 15 & !is.na(grouptag) & grouptag != '') %>%
mutate(count = row_number(locationtimestamp)) mutate(count = row_number(locationtimestamp))
# helper for sorting the grouptags by boxcount # helper for sorting the grouptags by boxcount