eem

Example code:

library(inegiR)

upper_lat = 25.686917
upper_long = -100.429398
lower_lat = 25.612030
lower_long = -100.333032
token_denue <- "mytoken"

sanpedro <- denue_grid(upper_lat, lower_lat, 
                       upper_long, lower_long, 
                       token = token_denue)

Example add visual highchart:

<div>
  <iframe width="100%" height="500" src="https://enelmargen.org/visuals/tst.html" style="border:none;"> </iframe>
</div>