hardcore removals. no text allowed.

eamcvey · Jul 16, 2014 · dbb8edb · dbb8edb
1 parent b00988f
commit dbb8edb
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/United States Decennial Census Public Use Microdata Sample/pums functions.R b/United States Decennial Census Public Use Microdata Sample/pums functions.R
@@ -86,11 +86,13 @@ get.tsv <-
 			stopifnot( substr( line , 1 , 1 ) %in% c( 'H' , 'P' ) )
 			# ..otherwise, there's something wrong with the file!
 
-			# remove goofy special characters (that will break monetdb)
-			line <- gsub( "Î?" , "62" , line , fixed = TRUE )
-			line <- gsub( "zÙ" , " " , line , fixed = TRUE )
-			line <- gsub( "m99" , " 99" , line , fixed = TRUE )
-			line <- gsub( "jÂ" , " " , line , fixed = TRUE )
+			if ( line.num > 1 ){
+				# remove goofy special characters (that will break monetdb)
+				line <- gsub( "Î?" , "62" , line , fixed = TRUE )
+				line <- gsub( "z" , " " , line , fixed = TRUE )
+				line <- gsub( "m99" , " 99" , line , fixed = TRUE )
+				line <- gsub( "j" , " " , line , fixed = TRUE )
+			}
 
 			line <- gsub( "[^[:alnum:]///' ]" , " " ,  line )