getCoordinates <-
function(file,r,c){
raw <- raster(file)
return(spTransform(xyFromCell(raw,cellFromRowCol(raw,rownr = r,colnr = c),spatial = T),CRS("+proj=longlat +datum=WGS84")))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.