-
Notifications
You must be signed in to change notification settings - Fork 2
/
index.Rmd
69 lines (57 loc) · 1.95 KB
/
index.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
---
title: "Mamíferos de la Gran Área Metropolitana (GAM) de Costa Rica"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
---
```{r setup, include=FALSE}
library(flexdashboard)
library(sf)
library(leaflet)
library(knitr)
library(kableExtra)
library(dplyr)
# Registros de presencia de Mammalia
registros_presencia_mammalia = st_read("https://raw.githubusercontent.com/atlas-servicios-ecosistemicos-gam/datos/master/biodiversidad/presencia/mammalia.geojson")
```
Column {data-width=500}
-----------------------------------------------------------------------
### Mapa de distribución
```{r}
leaflet() %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Imágenes de ESRI") %>%
addProviderTiles(providers$Stamen.TonerLite, group = "Stamen Toner Lite") %>%
addProviderTiles(providers$OpenStreetMap.Mapnik, group = "OpenStreetMap") %>%
addCircleMarkers(data = registros_presencia_mammalia,
stroke = F,
radius = 4,
fillColor = 'red',
fillOpacity = 1,
popup = paste(registros_presencia_mammalia$order, registros_presencia_mammalia$species, sep = '<br/>')) %>%
addLayersControl(baseGroups = c("OpenStreetMap", "Stamen Toner Lite", "Imágenes de ESRI")) %>%
addMiniMap(
toggleDisplay = TRUE,
tiles = providers$Stamen.TonerLite
)
```
Column {data-width=500}
-----------------------------------------------------------------------
### especies de _Mammalia_ (mamíferos)
```{r}
valueBox(length(unique(registros_presencia_mammalia[["species"]])), icon = "fa-pencil")
```
### Registros de presencia de especies
```{r}
registros_presencia_mammalia %>%
select(species, order) %>%
arrange(species) %>%
st_drop_geometry() %>%
kable()%>%
kable_styling() %>%
scroll_box(
width = "600px",
height = "400px",
fixed_thead = TRUE
)
```