使用不带地理配准的writeGDAL创建PNG（.aux.xml）

使用writeGDAL创建PNG文件时，会创建一个地理配准文件（.aux.xml）以及PNG文件。有没有办法来防止这种情况发生？使用不带地理配准的writeGDAL创建PNG（.aux.xml）

以下代码按照上面的说明创建文件。

library(raster) 
library(rgdal) 

r <- raster(xmn=742273.5, xmx=742702.5, ymn=6812515.5, ymx=6812995.5, ncols=144, nrows=161) 
r <- setValues(r, 1:ncell(r)) 

rSpdf <- as(r, 'SpatialPixelsDataFrame') 
rSpdf$colors <- as.numeric(cut(rSpdf$layer, breaks = 10)) 

writeGDAL(rSpdf[, 'colors'], 'test.png', drivername = 'PNG', type = 'Byte', mvFlag = 0, colorTables = list(colorRampPalette(c('black', 'white'))(11)))

来源

2017-06-14 jhhwilliams

This [post]（https://stackoverflow.com/questions/44123832/r-how-to-write-a-raster-to-disk-without-auxiliary-file）可能是感兴趣的你 – Val

这就是我所需要的，谢谢。 – jhhwilliams

通过设置rgdal::setCPLConfigOption("GDAL_PAM_ENABLED", "FALSE")未创建.aux.xml文件。谢谢Val指向我post。

library(raster) 
library(rgdal) 

rgdal::setCPLConfigOption("GDAL_PAM_ENABLED", "FALSE") 

r <- raster(xmn=742273.5, xmx=742702.5, ymn=6812515.5, ymx=6812995.5, ncols=144, nrows=161) 
r <- setValues(r, 1:ncell(r)) 

rSpdf <- as(r, 'SpatialPixelsDataFrame') 
rSpdf$colors <- as.numeric(cut(rSpdf$layer, breaks = 10)) 

writeGDAL(rSpdf[, 'colors'], 'test.png', drivername = 'PNG', type = 'Byte', mvFlag = 0, colorTables = list(colorRampPalette(c('black', 'white'))(11)))

来源

2017-06-14 14:41:16 jhhwilliams

使用不带地理配准的writeGDAL创建PNG（.aux.xml）

回答

相关问题