2016-01-04 77 views
2

我正在使用傳單作爲R,我只是想在點擊柵格圖像時重定向到某個URL。我當前的代碼如下:R對於點擊柵格圖像時的傳單重定向

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 

結果如下:

raster map

+1

如果通過閃亮部署,您可以在一個'()',但在包裝那肯定會適用於整個地圖,我對光柵圖像很懷疑。否則,你可能不得不用JS()來分解JavaScript,而JS()會快速地混亂。 – alistaire

回答

5

你可以使用viewExtent從MapView的包是:

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

viewExtent不作爲名稱建議圍繞柵格圖像的範圍(或sp包中的任何空間對象)繪製一個矩形。通過設置行和填充不透明度爲零並提供自定義彈出窗口,您可以實現與您想要的非常接近的內容。我不知道有什麼方法可以直接鏈接超鏈接光柵對象在單張R.

HTH, 添