使用不帶地理配準的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）

回答

相關問題