Skip to content
Snippets Groups Projects
Commit 8980a15c authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

typo and case of synthaq in oslo

parent ad7970c6
No related branches found
No related tags found
No related merge requests found
---
title: "data.glb.field"
title: "data.glb.arome"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{data.glb.field}
%\VignetteIndexEntry{data.glb.arome}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
......@@ -15,7 +15,7 @@ knitr::opts_chunk$set(collapse = T, comment = "#>")
```R
library("devtools")
devtools::install_git("https://git.nilu.no/rfriendlyr/friendlyr.git")
devtools::install_git("https://git.nilu.no/rfriendlyr/d.glb.fieldyr.git")
devtools::install_git("https://git.nilu.no/rfriendlyr/d.glb.aromyr.git")
```
## Get timeseries data
......@@ -31,7 +31,7 @@ station_id <- c("Bygdin","Osensjøen")
element_id <- c("RR")
location <- NULL
df <- friendlyr::ts(service="d.glb.fieldyr",
df <- friendlyr::ts(service="d.glb.aromyr",
fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
element_id=element_id,station_id=station_id)
......@@ -40,6 +40,6 @@ df <- friendlyr::ts(service="d.glb.fieldyr",
## Get metadata
```R
metadata <- friendlyr::meta(service="d.glb.fieldyr",element_id=element_id,station_id=station_id)
metadata <- friendlyr::meta(service="d.glb.aromyr",element_id=element_id,station_id=station_id)
```
---
title: "data.glb.arome"
title: "data.glb.field"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{data.glb.arome}
%\VignetteIndexEntry{data.glb.field}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
......@@ -15,7 +15,7 @@ knitr::opts_chunk$set(collapse = T, comment = "#>")
```R
library("devtools")
devtools::install_git("https://git.nilu.no/rfriendlyr/friendlyr.git")
devtools::install_git("https://git.nilu.no/rfriendlyr/d.glb.aromyr.git")
devtools::install_git("https://git.nilu.no/rfriendlyr/d.glb.fieldyr.git")
```
## Get timeseries data
......@@ -31,7 +31,7 @@ station_id <- c("Bygdin","Osensjøen")
element_id <- c("RR")
location <- NULL
df <- friendlyr::ts(service="d.glb.aromyr",
df <- friendlyr::ts(service="d.glb.fieldyr",
fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
element_id=element_id,station_id=station_id)
......@@ -40,6 +40,6 @@ df <- friendlyr::ts(service="d.glb.aromyr",
## Get metadata
```R
metadata <- friendlyr::meta(service="d.glb.aromyr",element_id=element_id,station_id=station_id)
metadata <- friendlyr::meta(service="d.glb.fieldyr",element_id=element_id,station_id=station_id)
```
......@@ -23,19 +23,12 @@ devtools::install_git("https://git.nilu.no/rfriendlyr/d.glb.obsyr.git")
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
fromDate <- "2018/03/01 00:00:00"
toDate <- "2018/03/10 00:00:00"
timeResolution <- precision <- "daily"
station_id <- c("Bygdin","Eidsbugard","Bråtå")
station_id <- c("Osen","Nordre_Osa","Heggeriset_Nordstrand","Åkrestrømmen","Vauldalen","Stugudal","Aursunden","Ålen","Bygdin","Eidsbugard","Bråtå","Svanfoss","Skrukkelisj","Tryvann","Enebakk_Barbøla","Ukkestad")
element_id <- c("RR")
location <- NULL
......
---
title: "data.eimet"
title: "data.luftkval.oslo10"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{data.eimet}
......
---
title: "data.syntaq.oslo10.seed123"
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.synthaq.oslyr.git")
```
## Get timeseries data
Get data from luftkval.oslo10 embedded dataset.
```R
fromDate="2015/03/01 02:00:00"
toDate="2015/03/01 09:00:00"
timeResolution="hourly"
station_id=c("7","464","827","665","9","11","163","504","809")
element_id=c("NO2")
location <- NULL
df <- friendlyr::ts(service="d.synthaq.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.synthaq.oslyr",station_id=station_id)
```
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment