update vignettes

DESCRIPTION

@@ -6,9 +6,9 @@ Authors@R: c(person("Jean-Marie", "Lepioufle", , "jml@nilu.no", role=c("aut","cr
 Title: friendlyr
 Description: Make remote timeserie dataset easy to get and to work with.
     The package focuses on:
-    1. importing key functions from a chosen remote dataset.
+    1. importing key libraries related to a specific remote dataset.
     2. authentication to the related database/db/api.
-    3. having access to the related database/db/api.
+    3. having access to the related database/db/api/embedded dataset.
     4. having timeserie dataset in a friendly format.
     5. checking the date timeserie.
     6. having metadata.

vignettes/data.eimet.Rmd

@@ -11,6 +11,12 @@ vignette: >
 library(friendlyr)
 knitr::opts_chunk$set(collapse = T, comment = "#>")
 ```
+## install
+```R
+library("devtools")
+devtools::install_git("https://git.nilu.no/rfriendlyr/friendlyr.git")
+devtools::install_git("https://git.nilu.no/rfriendlyr/d.eimetlyr.git")
+```
 
 ## Get timeseries data
 

vignettes/data.eipa.Rmd

@@ -11,6 +11,12 @@ vignette: >
 library(friendlyr)
 knitr::opts_chunk$set(collapse = T, comment = "#>")
 ```
+## install
+```R
+library("devtools")
+devtools::install_git("https://git.nilu.no/rfriendlyr/friendlyr.git")
+devtools::install_git("https://git.nilu.no/rfriendlyr/d.eipalyr.git")
+```
 
 ## Get timeseries data
 

vignettes/data.luftkval.oslo10.Rmd

+---
+title: "data.eimet"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{data.eimet}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+```{r setup, include = FALSE}
+library(friendlyr)
+knitr::opts_chunk$set(collapse = T, comment = "#>")
+```
+
+## install
+```R
+library("devtools")
+devtools::install_git("https://git.nilu.no/rfriendlyr/friendlyr.git")
+devtools::install_git("https://git.nilu.no/rfriendlyr/d.luft.oslyr.git")
+```
+
+## Get timeseries data
+
+Get data from luftkval.oslo10 embedded dataset.
+
+```R
+fromDate="2008/03/01 02:00:00"
+toDate="2008/03/01 09:00:00"
+timeResolution="hourly"
+
+station_id=c("7","848","464","827","665","9","11","163","504","809")
+element_id=c("NO2")
+location <- NULL
+
+
+df <- friendlyr::ts(service="d.luft.oslyr",
+                 fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
+                 element_id=element_id,station_id=station_id)
+
+
+```
+## Get metadata
+
+```R
+metadata <- friendlyr::meta(service="d.luft.oslyr",station_id=station_id)
+
+```
+
+## Get Quality flags
+
+```R
+df <- friendlyr::qa(service="d.luft.oslyr",
+                 fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
+                 element_id=element_id,station_id=station_id)
+
+```

vignettes/frost.Rmd

@@ -11,6 +11,12 @@ vignette: >
 library(friendlyr)
 knitr::opts_chunk$set(collapse = T, comment = "#>")
 ```
+## install
+```R
+library("devtools")
+devtools::install_git("https://git.nilu.no/rfriendlyr/friendlyr.git")
+devtools::install_git("https://git.nilu.no/rfriendlyr/frostlyr.git")
+```
 
 ## Get timeseries data
 

vignettes/innosense.Rmd

@@ -12,7 +12,12 @@ library(friendlyr)
 knitr::opts_chunk$set(collapse = T, comment = "#>")
 ```
 
-# Get the data from Innosense database
+## install
+```R
+library("devtools")
+devtools::install_git("https://git.nilu.no/rfriendlyr/friendlyr.git")
+devtools::install_git("https://git.nilu.no/rfriendlyr/innolyr.git")
+```
 
 ## Get the timeseries at specific stations
 

vignettes/luftkvalitet.Rmd

@@ -11,7 +11,12 @@ vignette: >
 library(friendlyr)
 knitr::opts_chunk$set(collapse = T, comment = "#>")
 ```
-
+## install
+```R
+library("devtools")
+devtools::install_git("https://git.nilu.no/rfriendlyr/friendlyr.git")
+devtools::install_git("https://git.nilu.no/rfriendlyr/luftlyr.git")
+```
 ## Get the timeseries data
 
 Get data from the luftkvalitet database.
@@ -34,8 +39,6 @@ luft <- friendlyr::ts(service="luftlyr",username="****",password="****",
                  element_id=c("NO2","O3"),location="Oslo,Norway")
 
 
-plot(luft,target=c("NO2_7","NO2_848"),DESKTOP=TRUE)
-
 ```
 ## Get the timeseries QA data
 
@@ -60,7 +63,6 @@ luft_qa <- friendlyr::qa(service="luftlyr",username="****",password="****",
                  element_id=c("NO2","O3"),location="Oslo,Norway")
 
 
-plot(luft_qa,target=c("NO2_7","NO2_848"),DESKTOP=TRUE)
 ```
 
 ## Get the metadata data