Mapa

---
title: "Lugares a los que me gustaria viajar"
author: "Jaidy Pineda"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      - {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
      - {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Mis viajes con Cirilin

```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Isla Mujeres", Giro = "Turistico", longitud = -86.7331, latitud = 21.2338)
lugar2 <- c(Nombre = "Grutas de Tolantango", Giro = "Turistico", longitud = -99.0050500, latitud = 20.6483700)
lugar3 <- c(Nombre = "Cascadas de agua Azul", Giro = "Turistico", longitud = -91.866186, latitud = 16.381093)
lugar4 <- c(Nombre = "Cenotes dos ojos", Giro = "Turistico", longitud = -87.3906, latitud = 20.3247)
lugar5 <- c(Nombre = "Tequila Jalisco", Giro = "Turistico", longitud = -97.069910, latitud = 18.729980)
lugar6 <- c(Nombre = "El Malecon Puerto Vallarta", Giro = "Turistico", longitud = -105.2387898, latitud = 20.6000848)

### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) 

### Imprimimos el mapa
mapa
```



Row
-----------------------------------------------------------------------

### Descripción del mapa

Me parece que estos seis lugares que me agradaria visitar con mi perrito son perfectos, ya que ir a isalas mujeres podra mi perro conocer el mar. En las grutas de tolantango me agradaria pasar unas vacaciones y relajarme en el tipo balneario y zona natural del lugar. Ir a las cascadas en chiapas podremos los dos estar viendo la cascada y pasear por el bosque de igual manera disfrutar de la vista y el agua tan azul.
Estar en los cenotes seria una gran experiencia para conocer el lugar y bucear en el lugar seria muy agradable. Disfrutar estar en tequila seria muy maravilloso poder ver el paissaje de agaves y poder disfrutar de diversas bebidas artesanales.
Por ultimo estar en el malecon paseando con cirilin seria muy lindo ya que podriamos ver el atardecer y comer en la noche viendo el mar.


Row
-----------------------------------------------------------------------

### Referencias

1.  Referencia uno

2.  Referencia dos

3.  Referencia tres