Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
rglow
friendlyr
Commits
c361c8d4
Commit
c361c8d4
authored
Jun 01, 2018
by
Jean-Marie Lepioufle
Browse files
add case purplair,hackair restricted
parent
6202f2d0
Changes
1
Hide whitespace changes
Inline
Side-by-side
vignettes/innosense.Rmd
View file @
c361c8d4
...
...
@@ -12,9 +12,10 @@ library(friendlyr)
knitr::opts_chunk$set(collapse = T, comment = "#>")
```
## Get timeseries data
# Get the Public data from Innosense database
## Get the timeseries
Get the Public data from Innosense database.
```R
fromDate <- "2016/11/6 00:00:00"
...
...
@@ -25,7 +26,7 @@ precision <- "hourly"
# get timeseries data
df <- friendlyr::ts(service="innolyr",username="****",password="****",
fromDate=fromDate,toDate=toDate,precision=precision,timeResolution=timeResolution,
element_id=c("no2","rh"),station_id="1")
element_id=c("no2","rh"
,"tsensor"
),station_id="1")
```
## Get metadata
...
...
@@ -39,3 +40,96 @@ metadata <- friendlyr::meta(service="innolyr",username="****",password="****",
station_id=c("1"))
```
# Get the Restricted data from Innosense database
## Get the timeseries
```R
fromDate <- "2016/11/6 00:00:00"
toDate <- "2016/11/10 00:00:00"
timeResolution <- "hourly"
precision <- "hourly"
station_id <- "4" #c("4","5","6")
# get timeseries data
df <- friendlyr::ts(service="innoRlyr",username="****",password="****",
fromDate=fromDate,toDate=toDate,precision=precision,timeResolution=timeResolution,
element_id=cc("no2","rh","tsensor"),station_id=station_id)
```
## Get metadata
Get metadata from the innosense database.
```R
# error, no access to metadata permitted
metadata <- friendlyr::meta(service="innoRlyr",username="****",password="****",
station_id=station_id)
```
# Get the Hackair data from Innosense database
## Get the timeseries
```R
fromDate <- "2016/11/6 00:00:00"
toDate <- "2016/11/10 00:00:00"
timeResolution <- "hourly"
precision <- "hourly"
station_id <- "102" #100 101 102 105 110 111 112 113 114 115 116 117 118 119 120
# get timeseries data
df <- friendlyr::ts(service="ihacklyr",username="****",password="****",
fromDate=fromDate,toDate=toDate,precision=precision,timeResolution=timeResolution,
element_id=c("pm25","pm10"),station_id=station_id)
```
## Get metadata
Get metadata from the innosense database.
```R
# error, no access to metadata permitted
metadata <- friendlyr::meta(service="ihacklyr",username="****",password="****",
station_id=station_id)
```
# Get the Purplair data from Innosense database
## Get the timeseries
```R
fromDate <- "2016/11/6 00:00:00"
toDate <- "2016/11/10 00:00:00"
timeResolution <- "hourly"
precision <- "hourly"
station_id <- "108" #103 104 106 107 108 109
# get timeseries data
df <- friendlyr::ts(service="ipurplyr",username="****",password="****",
fromDate=fromDate,toDate=toDate,precision=precision,timeResolution=timeResolution,
element_id=c("pm25","pm10"),station_id=station_id)
```
## Get metadata
Get metadata from the innosense database.
```R
# error, no access to metadata permitted
metadata <- friendlyr::meta(service="ipurplyr",username="****",password="****",
station_id=station_id)
```
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment