-
Notifications
You must be signed in to change notification settings - Fork 0
/
README.Rmd
96 lines (70 loc) · 1.9 KB
/
README.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
---
output:
md_document:
variant: markdown_github
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r, echo = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
```
[![AppVeyor Build Status](https://ci.appveyor.com/api/projects/status/github/EDiLD/rartenfinder?branch=master&svg=true)](https://ci.appveyor.com/project/EDiLD/rartenfinder)
[![Travis-CI Build Status](https://travis-ci.org/EDiLD/rartenfinder.svg?branch=master)](https://travis-ci.org/EDiLD/rartenfinder)
[![Coverage Status](https://img.shields.io/codecov/c/github/EDiLD/rartenfinder/master.svg)](https://codecov.io/github/EDiLD/rartenfinder?branch=master)
[![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/rartenfinder)](https://cran.r-project.org/package=rartenfinder)
# rartenfinder
R Client for the artenfinder API (http://artenfinder.rlp.de)
## Installation
### Development version from GitHub
```{r eval=FALSE}
install.packages("devtools")
devtools::install_github("EDiLD/rartenfinder")
```
```{r}
library('rartenfinder')
library('dplyr')
```
## Usage
### Query metadata
#### Available taxagroups
```{r taxagroups}
get_taxagroups() %>%
head()
```
#### Available taxa
##### List all available taxa
```{r taxa}
get_taxa() %>%
head() %>%
select(-eu_guid, gid)
```
##### Query taxa by regex:
```{r taxa_regex}
get_taxa(name_regexp_ci = '^Udea.*$') %>%
head() %>%
select(-eu_guid, gid)
```
##### Query taxa by group
```{r taxa_group}
get_taxa(taxagroup = 'Flechten') %>%
head() %>%
select(-eu_guid, -gid)
```
### Query observations
```{r observations}
get_observations(scientific_name = 'milvus milvus', year = 2017) %>%
head() %>%
select(id, lat, lon, datum)
```
### Plotting
#### Phenogram
```{r phenogram}
df <- get_observations(scientific_name = 'Gonepteryx rhamni', year = 2017)
plot_phaenogram(df, 'weekly')
```
#### Interactive map
```{r eval=FALSE}
plot_mapview(df)
```