remove superfluous rawToChar() (closes #38)

s-u · s-u · commit 9ea8c5fbc576 · 2026-02-19T14:10:15.000+13:00
diff --git a/NEWS b/NEWS
@@ -6,6 +6,8 @@
     *	The implementation now works both with and without growabale
 	vector API and across a wide range of R versions.
 
+    *	remove superfluous rawToChar() on column names (#38)
+
 
 0.3-5	2023-11-29
     *	add format casts
diff --git a/R/local.R b/R/local.R
@@ -137,7 +137,7 @@ write.csv.raw = function(x, file = "", append = FALSE, sep = ",", nsep="\t",
   }
 
   if (col.names) {
-    cr = rawToChar(as.output(matrix(colnames(x),nrow=1),sep = sep))
+    cr = as.output(matrix(colnames(x),nrow=1),sep = sep)
     writeBin(cr, con=file)
   }
 

Original file line number	Diff line number	Diff line change
`@@ -137,7 +137,7 @@ write.csv.raw = function(x, file = "", append = FALSE, sep = ",", nsep="\t",`
`137`	`137`	`}`
`138`	`138`
`139`	`139`	`if (col.names) {`
`140`		`- cr = rawToChar(as.output(matrix(colnames(x),nrow=1),sep = sep))`
	`140`	`+ cr = as.output(matrix(colnames(x),nrow=1),sep = sep)`
`141`	`141`	`writeBin(cr, con=file)`
`142`	`142`	`}`
`143`	`143`