[R-gregmisc-users] SF.net SVN: r-gregmisc: [1135] trunk/SASxport/R/read.xport.R

[<wa...@us...>]

Revision: 1135
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1135&view=rev
Author:   warnes
Date:     2007-08-11 16:48:34 -0700 (Sat, 11 Aug 2007)

Log Message:
-----------
Explicitly check file header

Modified Paths:
--------------
    trunk/SASxport/R/read.xport.R

Modified: trunk/SASxport/R/read.xport.R
===================================================================
--- trunk/SASxport/R/read.xport.R	2007-08-11 00:03:52 UTC (rev 1134)
+++ trunk/SASxport/R/read.xport.R	2007-08-11 23:48:34 UTC (rev 1135)
@@ -36,6 +36,13 @@
         file <- tf
       }
 
+    scat("Checking if the specified file has the appropriate header")
+    xport.file.header <- "HEADER RECORD*******LIBRARY HEADER RECORD!!!!!!!000000000000000000000000000000  "
+    file.header <- readBin( file, what=character(0), n=1, size=nchar(xport.file.header) )
+    file.header <- substr(file.header, start=1, stop=nchar(xport.file.header) )
+    if( !identical(xport.file.header, file.header) )
+      stop("The specified file does not start with a SAS xport file header!")
+           
     scat("Extracting data file information...")
     dsinfo <- foreign:::lookup.xport(file)
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.