correct public/restricted

vignettes/innosense.Rmd

@@ -23,10 +23,12 @@ 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="innolyr",username="****",password="****",
                  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
@@ -37,7 +39,7 @@ Get metadata from the innosense database.
 
 # error, no access to metadata permitted
 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"
 timeResolution <- "hourly"
 precision <- "hourly"
 
-station_id <- "4" #c("4","5","6")
+station_id <- "1" 
 
 # get timeseries data
 df <- friendlyr::ts(service="innoRlyr",username="****",password="****",