index.Rmd

---
title: "Árvores de Vitória - Beta"
author: ""
date: ""
output: flexdashboard::flex_dashboard
self_contained: yes
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r  include=FALSE, message=FALSE, warning=FALSE}
library(tidyverse)
library(leaflet)
library(leaflet.extras)
library(rgdal)
library(sf)
library(leafgl)
library(shiny)
```

```{r  include=FALSE, message=FALSE, warning=FALSE}
Arvores<-rgdal::readOGR(
	dsn = getwd(), 
			layer = "arvores")
```

```{r  include=FALSE, message=FALSE, warning=FALSE}
#Convert SIRGAS para WGS
Arvores<-spTransform(Arvores,CRS("+proj=longlat"))
```

```{r  include=FALSE, message=FALSE, warning=FALSE}
centroids<-rgeos::gCentroid(Arvores,byid=TRUE)

Arvores<-cbind(Arvores@data,centroids)
```

# Árvores de Vitória

```{r echo=FALSE, message=FALSE, warning=FALSE}
#O pacote leafgl tem uma performance melhor porém não permite popup com multiplas linhas. 
#Não consegui fazer gambiarra pra isso


Arvores<-Arvores%>%st_as_sf(.,coords = c("x", "y"))

Arvores$popup<-paste0(Arvores$nomePopula,";",Arvores$nomeCienti)



map<-leaflet(Arvores, width="auto")%>%
   addMiniMap()%>%
    addProviderTiles(providers$CartoDB.Positron,options = tileOptions(maxZoom = 50))%>%
    addTiles(options = tileOptions(maxZoom = 50)) %>%  # Add default OpenStreetMap map tiles
addGlPoints(data=Arvores,lng = ~x, lat = ~y,popup="popup",fillColor ="blueviolet",fillOpacity = 1)


map <- addControlGPS(map, options = gpsOptions(position = "topleft", activate = TRUE, 
                                               autoCenter = TRUE, 
                                               setView = FALSE))
activateGPS(map)

map

```

# Sobre

<h1>Sobre</h1>

São mais de 30 mil árvores mapeadas no município de Vitória representando mais de cem espécies diferentes entre nativas e exóticas que acabam passando icógnitas entre os passantes. A ideia central do aplicativo Árvores de Vitória é promover uma experiência divertida descobrindo as diferentes formas e diversidade durante as caminhadas pela cidade. O app ***Árvores de Vitória*** é uma iniciativa independente e amadora do pesquisador Gabriel Santos.

<h1>COMO CONTRIBUIR</h1>

Para contribuir com o aplicativo você pode enviar sua sugestão por [email](mailto:ssantos.gabriel@gmail.com).

<h1>LICENÇA</h1>

Publicado sob a licença Atribuição-NãoComercial-CompartilhaIgual 4.0 Internacional.

Confira as regras de reprodução e modificação: [CC BY-NC-SA 4.0](https://creativecommons.org/licenses/by-nc-sa/4.0/deed.pt)

<h1>AUTOR</h1>

|                                  |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         |     |
|:-----------------:|------------------------------------|-------------------|
| ![](Gabriel.jpeg){width="159"} | **Gabriel S. Santos** atualmente é pesquisador vinculado ao Instituto Nacional da Mata Atlântica. Tem interesse em diversas linhas de pesquisa que envolvam o uso de estatística, teoria e o envolvimento da comunidade local, entre elas análise de viabilidade populacional da vida selvagem, evolução da história de vida dos organismos, proposta de manejo de espécies exóticas e ameaçadas e ciência cidadã. Você pode acompanhar mais sobre os projetos desenvolvidos através do [site](https://ecosantos.netlify.app/), [Lattes](http://lattes.cnpq.br/1714610835853424), ou mande um [email](mailto:ssantos.gabriel@gmail.com) |     |