1# raster package 2# Author: Robert J. Hijmans 3# Date : June 2008 4# Version 0.9 5# Licence GPL v3 6 7 8.setFileExtensionValues <- function(fname, type='raster') { 9 if (type == 'raster') { 10 extension(fname) <- ".gri" 11 } else if (type == 'SAGA') { 12 extension(fname) <- ".sdat" 13 } else if (type == 'IDRISI') { 14 extension(fname) <- ".rst" 15 } else if (type == 'IDRISIold') { 16 extension(fname) <- ".img" 17 } else if (type == 'BIL') { 18 extension(fname) <- ".bil" 19 } else if (type == 'BIP') { 20 extension(fname) <- ".bip" 21 } else if (type == 'BSQ') { 22 extension(fname) <- ".bsq" 23# } else if (type == 'big.matrix') { 24# extension(fname) <- ".big" 25 } else { 26 stop('unknown file format') 27 } 28 return(fname) 29} 30 31.setFileExtensionHeader <- function(fname, type='raster') { 32 if (type == 'raster') { 33 extension(fname) <- ".grd" 34 } else if (type == 'SAGA') { 35 extension(fname) <- "sgrd" 36 } else if (type == 'IDRISI') { 37 extension(fname) <- ".rdc" 38 } else if (type == 'IDRISIold') { 39 extension(fname) <- ".doc" 40 } else if (type %in% c('BIL', 'BSQ', 'BIP')) { 41 extension(fname) <- ".hdr" 42 } else if (type == 'big.matrix') { 43 extension(fname) <- ".brd" 44 } else { 45 stop('unknown file format') 46 } 47 return(fname) 48} 49