Instructions

Create a web page using R Markdown that features a map created with Leaflet.

Host your webpage on either GitHub Pages, RPubs, or NeoCities.

Your webpage must contain the date that you created the document, and it must contain a map created with Leaflet. We would love to see you show off your creativity!

Submission

Here are 5 main touristic atraction in Colombia: Monserrate, Coffe Park, Salt Cathedral, Chicamocha Canyon and San Andres Island.

library(knitr)
library(leaflet)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lat=12.5450,lng=-81.7076, popup="San Andres Islands, Colombia") %>%
  addMarkers(lat=6.8159,lng=-72.9897, popup="Chicamocha Canyon, Santander") %>%
  addMarkers(lat=5.0108,lng=-74.0033, popup="Salt Cathedral, Zipaquira") %>%
  addMarkers(lat=4.5390,lng=-75.7690, popup="Coffe Park, Quindio") %>%
  addMarkers(lat=4.6057,lng=-74.0555, popup="Monserrate, Bogota") #%>%
  
  
m  # Print the map

Mapping Clusters

Some clusters are added to the Country to have a view of several points in the land.

df <- data.frame(lat=runif(500, min=4, max = 6 ),
                 lng=runif(500, min=-74, max = -72 ))    
                 df %>%
leaflet() %>%
addTiles() %>%  
addMarkers(clusterOptions = markerClusterOptions())

This concludes the assignment given.