altered legend description

gimoya · Feb 6, 2014 · 498d4e0 · 498d4e0
1 parent 23d2fcf
commit 498d4e0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/r_dem_for_google_earth.R b/R/r_dem_for_google_earth.R
@@ -71,7 +71,7 @@ dev.off()
 cord <- t(matrix(bbox(slo_final)[,1]))
 placement_legend <- SpatialPointsDataFrame(cord, data.frame(NA))
 icon <- NULL
-description <- "<a href='http://gimoya.bplaced.net/Terrain-Overlays/Legend.png' <img src='http://gimoya.bplaced.net/Terrain-Overlays/Legend.png'</img></a>"
+description <- "<img src='http://gimoya.bplaced.net/Terrain-Overlays/Legend.png'</img>"
 kmlPoints(placement_legend, kmlfile="Legend.kml", kmlname="Slope-Legend", name="Click 'Slope-Legend' link for legend..", 
           description="", icon=icon, kmldescription=description)