add case purplair,hackair restricted

vignettes/innosense.Rmd

@@ -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)
+
+```