library(leaflet)
library(htmltools)
library(raster)
library(sf)
library(ggplot2)
icons <- awesomeIcons(
  icon = 'user',
  library = 'fa',
  iconColor = 'lightgray',
  markerColor = 'darkred')
leaflet() %>%
  setView(lng = -103, lat = 24, zoom = 5) %>%
  addTiles() %>%
  addAwesomeMarkers(lng = -99, lat = 19, icon=icons) 
contenido <- paste(sep = "<br/>",
  "<b><a href='http://lmtgtm.org/?lang=es'>Gran telescopio Milimétrico</a></b>",
  "Parque Nacional Pico de Orizaba",
  "Volcán Sierra Negra, Puebla, México"
)
leaflet() %>%
  setView(lng = -103, lat = 24, zoom = 5) %>%
  addTiles() %>%
  addPopups(-97.3148183, 18.9857333, contenido)
volcanes <- read.csv(textConnection(
"Nombre,Lat,Long,Alt
Nevado de Toluca,19.1085849,-99.7635239,4680
Popocatépetl,19.0224211,-98.6454109,5426
Iztaccíhuatl,19.178338,-98.6602376,5230
Pico de Orizaba,19.0303807,-97.2855857,5636
Sierra Negra,18.984778,-97.3199984,4640
Nevado de Colima,19.5633321,-103.6258429,4260
Fuego de Colima,19.5344157,-103.6539747,3839"
))
volcano <- awesomeIcons(
  icon = 'tree',
  library = 'fa',
  iconColor = 'lightgray',
  markerColor = 'darkblue')
leaflet(volcanes) %>% 
  addTiles() %>%
  addAwesomeMarkers(~Long, ~Lat, icon=volcano,
                    popup = ~htmlEscape
                    (Nombre))
leaflet() %>%
  setView(lng = -103, lat = 24, zoom = 5) %>%
  addTiles() %>%
  addMarkers(
    lng = -98.6454109, lat = 19.0224211,
    label = "Volcán Popocatépetl: montaña que humea",
    labelOptions = labelOptions(style = list(
        "color" = "blue",
        "font-family" = "serif",
        "font-style" = "italic",
        "font-size" = "12px")))
imagen <- paste(sep = "<br/>", paste0("<img src='https://www.r-project.org/logo/Rlogo.png", "' width='130' />"), paste0("<b>Nombre: </b>", "Volcán Popocatépetl"), paste0("<b>Coordenadas: </b>", "Lat = 19.0224211, Long = -98.6454109, Alt = 5,426 msnm"), paste0("<a href='http://www.cenapred.gob.mx/reportesVolcanGobMX/Procesos?tipoProceso=detallesUltimoReporteVolcan", "'>Enlace</a>"))
imagen2 <- paste(sep = "<br/>", paste0("<img src = 'C:\\Users\\RACelis\\Downloads\\Hongo.png'/>"), paste0("<b>Nombre: </b>", "Volcán Popocatépetl"), paste0("<b>Coordenadas: </b>", "Lat = 19.0224211, Long = -98.6454109, Alt = 5,426 msnm"), paste0("<a href='http://www.cenapred.gob.mx/reportesVolcanGobMX/Procesos?tipoProceso=detallesUltimoReporteVolcan", "'>Enlace</a>")) 
leaflet() %>%
  addTiles() %>%
  setView(lng = -103, lat = 24, zoom = 5) %>%
  addMarkers(-98.6454109, 19.0224211, popup=imagen)
r <- raster("D:\\R\\Mardowns\\Presas\\Caracol_gro.tif")

leaflet() %>%
  addTiles() %>% 
  setView(lng = -99.97, lat = 18, zoom = 10) %>%
  addRasterImage(x=r,opacity = 0.7)