-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathflora.Rmd
138 lines (115 loc) · 4.16 KB
/
flora.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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
---
title: BiodiversidadGJC
author: Juan Carlos García Estupiñán
output:
html_document:
theme: cerulean
toc: no
toc_depth: 1
toc_float:
collapsed: true
smootg_scroll: true
email_adress: [email protected]
github: https://github.com/JuanCarlosBio/
github_repo: https://github.com/JuanCarlosBio/BiodiversidadGJC
documentation: https://github.com/JuanCarlosBio/BiodiversidadGJC/blob/main/documents/info.md
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
<link rel="icon" href="figures/GC_mapa.png">
<link rel="preconnect" href="https://fonts.googleapis.com">
<link rel="preconnect" href="https://fonts.gstatic.com" crossorigin>
<link href="https://fonts.googleapis.com/css2?family=Montserrat:ital,wght@0,100..900;1,100..900&family=Roboto+Slab:[email protected]&family=Roboto:ital,wght@0,100;0,300;0,400;0,500;0,700;0,900;1,100;1,300;1,400;1,500;1,700;1,900&display=swap" rel="stylesheet">
```{css, echo = FALSE}
.author, .title {
display: none;
}
.main-container {
max-width: 1600px;
margin-left: auto;
margin-right: auto;
background-color: #fff3d8;
}
body {
background-color: #dbc79b;
color: #000000;
font-family: "Roboto"; sans-serif;
font-weight: 400;
font-style: normal;
font-size: 16px;
// background-image: url('https://github.com/JuanCarlosBio/cosas_mias/blob/main/IMG_20240428_173528.jpg?raw=true');
background-size: 100%;
}
.button {
display: inline-block;
padding: 8px 16px;
font-size: 16px;
cursor: pointer;
text-align: center;
text-decoration: none;
outline: none;
color: #fff;
background-color: #2777f7;
border: none;
border-radius: 12px;
box-shadow: 0 0px #999;
margin: 10px;
}
.button:hover {
background-color: #3e8e41;
}
.button:active {
background-color: #3e8e41;
box-shadow: 0 3px #666;
transform: translateY(2px);
}
```
<center>
<div style="background-color: #F4F4F4; text-align: center;">
# **Mapa de especies de <span style='color: green'><u>FLORA Y VEGETACIÓN</u></span>**
</div>
</center>
Mapa interactivo formado por varias capas:
- **CAPAS BÁSICAS**:
- Por defecto sin capa
- Espacios Naturales Protegidos (ENP)
- Zonas de Especial Conservación (ZEC)
- Especies Protegidas
- **CAPAS EN PRIMER PLANO**:
- Especies (<span style='color: green'><u>nativas no protegidas</u></span>, <span style='color: red'><u>introducidas</u></span> y <span style='color: orange'><u>traslocadas</u></span>)
- Leyendas
Ayuda para el manejo del mapa ➔ [documentación](`r rmarkdown::metadata$documentation`).
```{r, echo = FALSE, message = FALSE, warning=FALSE, out.width = '100%'}
source("code/R/05plot_flora.R")
bscols(
widths = c(6, 3, 3),
"",
filter_select(
id = "species",
label = htmltools::HTML("BUSCA LAS ESPECIES QUE TE INTERESEN"),
sharedData = sd,
group = ~specie,
""
))
map
```
### **Busca en la tabla las especies que estés interesado (*"<u>search</u>"*):**
* **<u>Truco</u>**: puedes buscar por palabras clave, como *"especies nativa"*, *"especie traslocada"*
* También puedes usar los <u>buscadores encima de cada columna</u> para una búsqueda más específica.
```{r, echo = FALSE, message = FALSE, warning=FALSE}
source("code/R/10tables.R")
gt_plantae
```
<div style="text-align: center;">
<button class="button" onclick="window.location.href='./'">INICIO</button>
<button class="button" onclick="window.location.href='./invertebrates'">MAPA INVERTEBRADOS</button>
<button class="button" onclick="window.location.href='./data'">Descarga de datos y estadísticas</button>
</div>
<footer style="text align: center; margin-top: 20px; font-size: small; color: gray">
<hr>
<p><em>Última actualización el `r format(lubridate::today(), "%d/%m/%Y")`</em></p>
<p>Sitio [<u>**desarrollado**</u>](`r rmarkdown::metadata$github_repo`) por [<u>**Juan Carlos García Estupiñán**</u>](`r rmarkdown::metadata$github`)</p>
<p>Puede ser interesante: [Inventario de especies de cada Espacio Natural Protegido](https://juancarlosbio.github.io/inventario_especies_enp/)</p>
<p><h4><u>Contacta conmigo:</u>[**✉ GMAIL**](mailto:`r rmarkdown::metadata$email_adress`)</h4></p>
</footer>