add case eimet

vignettes/eimet.Rmd

+---
+title: "eimet"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{eimet}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+```{r setup, include = FALSE}
+library(friendlyr)
+knitr::opts_chunk$set(collapse = T, comment = "#>")
+```
+
+## Get timeseries data
+
+Get data from eimet embedded dataset.
+
+```R
+fromDate="2008/03/01 02:00:00"
+toDate="2008/03/01 09:00:00"
+timeResolution="hourly"
+
+station_id=c(1475,2175)
+element_id=c("rain","temp")
+location <- NULL
+
+
+df <- friendlyr::ts(service="eimetlyr",
+                 fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
+                 element_id=element_id,station_id=station_id)
+
+
+```
+## Get metadata
+
+```R
+metadata <- friendlyr::meta(service="eimetlyr",element_id=element_id,station_id=station_id)
+
+```
+
+## Get Quality flags
+
+```R
+df <- friendlyr::qa(service="eimetlyr",
+                 fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
+                 element_id=element_id,station_id=station_id)
+
+```