fix #220

Author: eblondel

R/ISOAbstractObject.R

@@ -1160,11 +1160,7 @@ ISOAbstractObject <- R6Class("ISOAbstractObject",
       xml <- self$encode(...)
       xml_str <- as(xml, "character")
       #write file with writeBin to overcome writeChar size limitation
-      writeBin(xml_str, con = file, useBytes = TRUE)
-      #read file to replace C-style zero-terminated string
-      r = readBin(file, raw(), file.info(file)$size)
-      r[r==as.raw(0)] = as.raw(0x20) ## replace with 0x20 = <space>
-      writeBin(r, file)
+      writeBin(charToRaw(xml_str), con = file)
     },
 
     #Util & internal methods