Browse code

Minor edit to readIDAT()

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@58785 bc3139a8-67e5-0310-9ffc-ced21a209358

unknown authored on 04/10/2011 22:26:06
Showing1 changed files

... ...
@@ -157,9 +157,9 @@ readIDAT <- function(idatFile){
157 157
 
158 158
   tempCon <- file(idatFile,"rb")
159 159
   prefixCheck <- readChar(tempCon,4)
160
-  if(prefixCheck != "IDAT"){
161
-
162
-  }
160
+#  if(prefixCheck != "IDAT"){
161
+#       warning("May need to check format of ", idatFile)
162
+#  }
163 163
 
164 164
   versionNumber <- readBin(tempCon, "integer", n=1, size=8, endian="little")
165 165