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

correct public/restricted

parent c361c8d4
...@@ -23,10 +23,12 @@ toDate <- "2016/11/10 00:00:00" ...@@ -23,10 +23,12 @@ toDate <- "2016/11/10 00:00:00"
timeResolution <- "hourly" timeResolution <- "hourly"
precision <- "hourly" precision <- "hourly"
station_id <- "4" #c("4","5","6")
# get timeseries data # get timeseries data
df <- friendlyr::ts(service="innolyr",username="****",password="****", df <- friendlyr::ts(service="innolyr",username="****",password="****",
fromDate=fromDate,toDate=toDate,precision=precision,timeResolution=timeResolution, fromDate=fromDate,toDate=toDate,precision=precision,timeResolution=timeResolution,
element_id=c("no2","rh","tsensor"),station_id="1") element_id=c("no2","rh","tsensor"),station_id="4")
``` ```
## Get metadata ## Get metadata
...@@ -37,7 +39,7 @@ Get metadata from the innosense database. ...@@ -37,7 +39,7 @@ Get metadata from the innosense database.
# error, no access to metadata permitted # error, no access to metadata permitted
metadata <- friendlyr::meta(service="innolyr",username="****",password="****", metadata <- friendlyr::meta(service="innolyr",username="****",password="****",
station_id=c("1")) station_id=c("4"))
``` ```
...@@ -52,7 +54,7 @@ toDate <- "2016/11/10 00:00:00" ...@@ -52,7 +54,7 @@ toDate <- "2016/11/10 00:00:00"
timeResolution <- "hourly" timeResolution <- "hourly"
precision <- "hourly" precision <- "hourly"
station_id <- "4" #c("4","5","6") station_id <- "1"
# get timeseries data # get timeseries data
df <- friendlyr::ts(service="innoRlyr",username="****",password="****", df <- friendlyr::ts(service="innoRlyr",username="****",password="****",
......
Supports Markdown
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