| rasterToKML <- function(x, out='Rgrid', png=FALSE, name=out, proj="+proj=longlat") { | |
| require(raster) | |
| require(maptools) | |
| require(rgdal) | |
| require(rgeos) | |
| x <- raster(x) | |
| SG <- as(x, 'SpatialGridDataFrame') | |
| proj4string(SG) <- CRS(proj) | |
| SG <- GE_SpatialGrid(SG) | |
| if(png) png <- sprintf('%s.png', out) else png <- tempfile() |
This package contains a set of tools, utilities and stylesheets for working with the Geoscience Australia Australian Bathymetry and Topography Grid.
Here is a sample rendering of this Geoscience Australia Australian Bathymetry and Topography Grid using the process documented in this repository.
| all <- iconvlist() | |
| names(all) <- all | |
| tries <- llply(all[330:350], function(cur) iconv(song$artist, cur, "UTF-8")) | |
| vapply(tries, function(x) sum(is.na(x)), integer(1)) |