MODELACION1
Badouin
09/01/2022
setwd("~/Documents/blueprop")
library(pacman)
p_load(rmdformats,readr,readxl,ggplot2,plotly,DT,xfun,gridExtra,leaflet )
Caracterización de cambio ambiental del entorno de la estación denominada “Hermenegildo”
Ubicación de la estación
content <- paste(sep = "<br/>",
"<b><a href='https://www.google.es/maps/@32.485594,-116.874589,616m/data=!3m1!1e3'>Estación Hermenegildo</a></b>","Lng: -116.874589, Lat: 32.485594")
m <- leaflet() %>%
addTiles() %>%
addMarkers(lng=-116.874589, lat= 32.485594, popup= content)
m
