[Raster-commits] r150 - pkg/raster/R

[noreply at r-forge.r-project.org]

Author: rhijmans
Date: 2009-01-17 15:28:50 +0100 (Sat, 17 Jan 2009)
New Revision: 150

Modified:
   pkg/raster/R/filenames.R
Log:


Modified: pkg/raster/R/filenames.R
===================================================================
--- pkg/raster/R/filenames.R	2009-01-17 10:17:59 UTC (rev 149)
+++ pkg/raster/R/filenames.R	2009-01-17 14:28:50 UTC (rev 150)
@@ -14,8 +14,6 @@
 
 
 fileName <- function(filename) {
-# Author: Robert Hijmans
-# Version 1; Date: 1-Sep-2008; License: GPL3
     filename <- gsub("\\\\", "/", filename)
 	if (filename == "") {return(filename)
 	} else {
@@ -35,8 +33,6 @@
 
    
 fileExtension <- function(filename) {
-# Author: Robert Hijmans
-# Version 1; Date: 1-Sep-2008; License: GPL3
 	lfn <- nchar(filename)
 	extstart <- -1
     for (i in lfn : 2) {
@@ -54,8 +50,6 @@
 
 
 setFileExtension <- function(filename, newextension="") {
-# Author: Robert Hijmans
-# Version 1; Date: 1-Sep-2008; License: GPL3
 	lfn <- nchar(filename)
 	newextension <- trim(newextension)
 	if (newextension != "" & substr(newextension, 1, 1) != ".") {