---
title: "GANADERÍA EN NEUQUÉN"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
---


ESTABLECIMIENTOS
=======================================================================

```{r setup, include=FALSE}
library(flexdashboard)
library(dplyr)
library(leaflet)
library(leaflet.extras)
library(sf)
regiones_copade <- st_read ("./regiones00.shp")
library(dplyr)
library(readr)
reg <- select(regiones_copade, region, geometry)
regiones <- c("Comarca Petrolera", "Confluencia", "Limay Medio", "Norte", "Sur", "Vaca Muerta", "Centro Oeste")
colores_aleatorios <- rainbow(length(unique(reg$region)))
comarca <- st_read ("./comarca_petrolera0.shp") 
comarca <- select(comarca, region,geometry)
confluencia <- st_read ("./confluencia0.shp")
confluencia <- select(confluencia, region,geometry)

ganaderos_unicos <- read_csv("ganaderos_unicos.csv")

deptosarg <- st_read("C:\\Users\\DSM\\Desktop\\CURSO_GEOESPACIAL\\departamento.shp")
deptosarg$prov <- ifelse(deptosarg$fdc == "Direc. Pcial. de Catastro e Inf. Territorial", "nqn", "restopais")
deptosnqn <- subset(deptosarg, prov == "nqn")
provincias <- st_read("C:\\Users\\DSM\\Desktop\\CURSO_GEOESPACIAL\\pro.shp")
nqn <- provincias[provincias$gid == 2,]
contorno <- leaflet() %>%
  addProviderTiles(providers$CartoDB.Positron)%>%
  addPolygons(data = nqn, color = "red", weight = 2, fillOpacity = 0)
contorno
```

Column {data-width=800}
-----------------------------------------------------------------------

### **MAPA DE ESTABLECIMIENTOS GANADEROS DE NEUQUÉN**

```{r}

mapaganaderos <- leaflet() %>%
  addProviderTiles(providers$CartoDB.Positron, group = "Vista de mapa") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Vista satelital", options = tileOptions(minZoom = 1, maxZoom = 19)) %>%
  addLayersControl(baseGroups = c("Vista de mapa", "Vista satelital"),
                   options = layersControlOptions(collapsed = FALSE)) %>%
  addPolygons(data = nqn, color = "red", weight = 2, fillOpacity = 0) %>%
  addPolygons(data = deptosnqn, color = "blue", weight = 0.5, fillOpacity = 0, label = ~nam, labelOptions = labelOptions(noHide = FALSE)) %>%
  addCircleMarkers(data = ganaderos_unicos, 
                   lng = ~Longitud, lat = ~Latitud, 
                   color = "black", fillColor = "grey", 
                   radius = 4, weight = 1, fillOpacity = 1, 
                   label = ~paste(TITULAR, RENSPA, sep = "; "), 
                   labelOptions = labelOptions(noHide = FALSE),
                   group = "Establecimientos Ganaderos") %>%
  addLegend(position = "topright",
            colors = c("white", "white", "white"),
            title = "Referencias",
            labels = list(
              "<svg height='20' width='30'><line x1='10' y1='10' x2='90' y2='10' style='stroke:red;stroke-width:4' /></svg> Neuquen",
              "<svg height='20' width='30'><line x1='10' y1='10' x2='90' y2='10' style='stroke:blue;stroke-width:4' /></svg> Departamentos",
              "<svg height='20' width='20'><circle cx='10' cy='10' r='5' stroke='black' stroke-width='1' fill='grey' /></svg> Establecimientos Ganaderos"
            )) %>%
  addLayersControl(
    baseGroups = c("Vista de mapa", "Vista satelital"),
    overlayGroups = c("Establecimientos Ganaderos"),
    options = layersControlOptions(collapsed = FALSE)
  )
mapaganaderos
```


Column {data-width=200}
-------------------------------------------------------------------------

### **ESTABLECIMIENTOS GANADEROS**

Los Establecimientos Ganaderos son unidades de producción dedicadas a la cría y cuidado de animales como bovinos, ovinos, porcinos, entre otros. 

El SENASA supervisa y regula estas instalaciones para garantizar la salud animal, prevenir enfermedades y asegurar la calidad de los productos de origen animal. 

Son fundamentales para la seguridad alimentaria y el comercio internacional de productos agropecuarios.

_**Fuente**: [RENSPA - SENASA](https://www.argentina.gob.ar/senasa/micrositios/renspa)_

REGIONES
=======================================================================

Column {data-width=700}
-----------------------------------------------------------------------

### **MAPA DE REGIONES DE LA PROVINCIA DE NEUQUEN**

```{r}

maparegion <- leaflet() %>%
  addProviderTiles(providers$CartoDB.Positron, group = "Vista Mapa") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Vista Satélite") %>%
  addPolygons(data = reg, label = ~region, fillColor = colores_aleatorios, weight = 1, color = "black") %>%
  addLegend(position = "topright", title = "Regiones", colors = colores_aleatorios, labels = regiones) %>%
  addLayersControl(
    baseGroups = c("Vista Mapa", "Vista Satélite"),
    options = layersControlOptions(collapsed = FALSE)
  )

maparegion
```

Column {data-width=300}
-----------------------------------------------------------------------

### **PLANIFICACIÓN REGIONAL**

**COMARCA PETROLERA:** Cutral Co, Plaza Huincul y Sauzal Bonito.


**CONFLUENCIA:** Centenario, Neuquén, Plottier, Senillosa, Vista Alegre y Villa El Chocón.


**LIMAY MEDIO:** Picún Leufú, Piedra del Águila, El Sauce, Paso Aguerre y Santo Tomás.


**NORTE:** Chos Malal, Andacollo, Loncopué, El Cholar, El Huecú, Huinganco, Las Ovejas, Los Miches, Taquimilán, Tricao Malal, Caviahue – Copahue, Chorriaca, Coyuco Cochico, Guañacos, Manzano Amargo, Varvarco, Villa del Nahueve y Villa Curi Leuvú.


**SUR:** Junín de los Andes, San Martín de los Andes, Villa La Angostura, Villa Traful y Pilo Lil.


**VACA MUERTA:** Rincón de los Sauces, San Patricio del Chañar, Añelo, Buta Ranquil, Barrancas, Aguada San Roque, Los Chihuidos y Octavio Pico.


**CENTRO OESTE:** Zapala, Aluminé, Las Lajas, Mariano Moreno, Villa Pehuenia, Bajada del Agrio, Las Coloradas, Covunco Abajo, Los Catutos, Quili Malal, Ramón Castro y Villa del Puente Picún Leufú.



_**Fuente**: [COPADE](https://www.copade.gob.ar/planificacion-regional/)_


DETALLE POR REGIÓN
=======================================================================

**Seleccione una pestaña para ver los establecimientos y técnicos a cargo de cada región**

Column {.tabset .tabset-fade}
-----------------------------------------------------------------------

### Comarca Petrolera

```{r}

mapacomarca <- leaflet() %>%
 addProviderTiles(providers$CartoDB.Positron) %>%
  addPolygons(data = comarca, fillColor = "red" )
mapacomarca
```


### Confluencia


```{r}

mapaconfluencia <- leaflet() %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  addPolygons(data = confluencia, fillColor = "yellow" )
mapaconfluencia
```