Lugar = c("Parque la Florida")
lon = c(-74.143746)
lat = c(4.732250)
coordenadas = data.frame(Lugar,lon,lat)
head(coordenadas)
###El siguiente mapa muestra el parque La Florida, el parque más importante del noroccidente de Bogotá, este cuenta con un área de 200 hectáreas equipada con instalaciones deportivas como pistas de motocross, canchas de fútbol, futsal, tenis, voleibol, baloncesto, patinódromo y rampas para deportes extremos.
###También posee un lago de 16 hectarea, con zona para camping, comedores, baños y parqueadero.Dispone de una amplia variedad de flora en la cual se incluye palmas de cera del Quindío, pinos ciprenses, pátula, acacias y roble.
###Debido a su cercanía al Humedal Jaboque, existe alta presencia de aves. Se han identificado un total de 40 especies de las cuales 30 son endémicas y 10 migratorias las cuales visitan al parque entre los meses de septiembre y abril.
library(leaflet)
leaflet() %>% addTiles() %>% setView(lon, lat, zoom = 15)
LS0tDQp0aXRsZTogIlBhcnF1ZSBMYSBGbG9yaWRhIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3IgQ29vcmRlbmFkYXN9DQpMdWdhciA9IGMoIlBhcnF1ZSBsYSBGbG9yaWRhIikNCmxvbiA9IGMoLTc0LjE0Mzc0NikNCmxhdCA9IGMoNC43MzIyNTApDQpjb29yZGVuYWRhcyA9IGRhdGEuZnJhbWUoTHVnYXIsbG9uLGxhdCkNCmBgYA0KDQpgYGB7ciB0YWJsYX0NCmhlYWQoY29vcmRlbmFkYXMpDQpgYGANCg0KDQpgYGB7ciBwYXJyYWZvMX0NCiMjI0VsIHNpZ3VpZW50ZSBtYXBhIG11ZXN0cmEgZWwgcGFycXVlIExhIEZsb3JpZGEsIGVsIHBhcnF1ZSBtw6FzIGltcG9ydGFudGUgZGVsIG5vcm9jY2lkZW50ZSBkZSBCb2dvdMOhLCBlc3RlIGN1ZW50YSBjb24gdW4gw6FyZWEgZGUgMjAwIGhlY3TDoXJlYXMgZXF1aXBhZGEgY29uIGluc3RhbGFjaW9uZXMgZGVwb3J0aXZhcyBjb21vIHBpc3RhcyBkZSBtb3RvY3Jvc3MsIGNhbmNoYXMgZGUgZsO6dGJvbCwgZnV0c2FsLCB0ZW5pcywgdm9sZWlib2wsIGJhbG9uY2VzdG8sIHBhdGluw7Nkcm9tbyB5IHJhbXBhcyBwYXJhIGRlcG9ydGVzIGV4dHJlbW9zLg0KYGBgDQoNCmBgYHtyIHBhcnJhZm8yfQ0KIyMjVGFtYmnDqW4gcG9zZWUgdW4gbGFnbyBkZSAxNiBoZWN0YXJlYSwgY29uIHpvbmEgcGFyYSBjYW1waW5nLCBjb21lZG9yZXMsIGJhw7FvcyB5IHBhcnF1ZWFkZXJvLkRpc3BvbmUgZGUgdW5hIGFtcGxpYSB2YXJpZWRhZCBkZSBmbG9yYSBlbiBsYSBjdWFsIHNlIGluY2x1eWUgcGFsbWFzIGRlIGNlcmEgZGVsIFF1aW5kw61vLCBwaW5vcyBjaXByZW5zZXMsIHDDoXR1bGEsIGFjYWNpYXMgeSByb2JsZS4NCmBgYA0KDQpgYGB7ciBwYXJyYWZvM30NCiMjI0RlYmlkbyBhIHN1IGNlcmNhbsOtYSBhbCBIdW1lZGFsIEphYm9xdWUsIGV4aXN0ZSBhbHRhIHByZXNlbmNpYSBkZSBhdmVzLiBTZSBoYW4gaWRlbnRpZmljYWRvIHVuIHRvdGFsIGRlIDQwIGVzcGVjaWVzIGRlIGxhcyBjdWFsZXMgMzAgc29uIGVuZMOpbWljYXMgeSAxMCBtaWdyYXRvcmlhcyBsYXMgY3VhbGVzIHZpc2l0YW4gYWwgcGFycXVlIGVudHJlIGxvcyBtZXNlcyBkZSBzZXB0aWVtYnJlIHkgYWJyaWwuDQpgYGANCg0KDQpgYGB7ciBtYXBhfQ0KbGlicmFyeShsZWFmbGV0KQ0KbGVhZmxldCgpICU+JSBhZGRUaWxlcygpICU+JSBzZXRWaWV3KGxvbiwgbGF0LCB6b29tID0gMTUpDQpgYGANCg0KDQo=