小编Kin*_*abu的帖子

我正在使用R的传单,当我点击光栅图像时,我只想在某个URL上重定向.我目前的代码如下:

library(htmlwidgets)
library(raster)
library(leaflet)
library(sp)

imgPath = paste(projectPath,"/test.tif", sep = "")
outPath = paste(projectPath, "/leaflethtmlgen.html", sep="")

r <- raster(imgPath)

pal <- colorNumeric(c("#FF0000", "#666666", "#FFFFFF"), values(r),
                    na.color = "transparent")

m <- leaflet() 
m <- addTiles(m) 
m <- addRasterImage(m,r, colors=pal, opacity = 0.9, maxBytes = 123123123, group = "Raster1") 
m <- addLegend(m,pal = pal, values = values(r), title = "Test")

m <-  addLayersControl(
    m, 
    overlayGroups = c("Raster1"),
    options = layersControlOptions(collapsed = FALSE)
  )
m

结果如下: