单击光栅图像时用于传单重定向的 R

Question

我正在为 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

结果如下：

Answer 1

您可以使用 mapview 包中的 viewExtent：

library(mapview)
mapview(poppendorf[[10]]) +
  viewExtent(poppendorf[[10]], 
             opacity = 0, fillOpacity = 0, 
             popup = '<a href="http://www.google.com">Search Google</a>')

viewExtent 顾名思义，在光栅图像（或 sp 包中的任何空间对象）的范围内绘制一个矩形。通过将线条和填充不透明度设置为零并提供自定义弹出窗口，您可以获得非常接近您想要的效果。我不知道有什么方法可以直接 link hyperlinks 来栅格 R 传单中的对象。

HTH, 蒂姆

单击光栅图像时用于传单重定向的 R

R for leaflet redirect when clicking on raster image

redirect

r

raster

leaflet