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