Commit c361c8d4 authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

add case purplair,hackair restricted

parent 6202f2d0
......@@ -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)
```
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment