[Rd] writing to file with encodings (PR#2674)

[jean-pierre.mueller at dssp.unil.ch]

Full_Name: Jean-Pierre Müller
Version: 162
OS: Mac OS (carbon)
Submission from: (NULL) (130.223.101.43)


Encodings valid only in rwading files? The following give identical output
files.

"ascii" <-
 c( 
 "\040","\041","\042","\043","\044","\045","\046","\047", # 040-047 
 "\050","\051","\052","\053","\054","\055","\056","\057", # 050-057 
 "\060","\061","\062","\063","\064","\065","\066","\067", # 060-067 
 "\070","\071","\072","\073","\074","\075","\076","\077", # 070-077 
 "\100","\101","\102","\103","\104","\105","\106","\107", # 100-107 
 "\110","\111","\112","\113","\114","\115","\116","\117", # 110-117 
 "\120","\121","\122","\123","\124","\125","\126","\127", # 120-127 
 "\130","\131","\132","\133","\134","\135","\136","\137", # 130-137 
 "\140","\141","\142","\143","\144","\145","\146","\147", # 140-147 
 "\150","\151","\152","\153","\154","\155","\156","\157", # 150-157 
 "\160","\161","\162","\163","\164","\165","\166","\167", # 160-167 
 "\170","\171","\172","\173","\174","\175","\176",        # 170-177 
 "\200","\201","\202","\203","\204","\205","\206","\207", # 200-207 
 "\210","\211","\212","\213","\214","\215","\216","\217", # 210-217 
 "\220","\221","\222","\223","\224","\225","\226","\227", # 220-227 
 "\230","\231","\232","\233","\234","\235","\236","\237", # 230-237 
 "\240","\241","\242","\243","\244","\245","\246","\247", # 240-247 
 "\250","\251","\252","\253","\254","\255","\256","\257", # 250-257 
 "\260","\261","\262","\263","\264","\265","\266","\267", # 260-267 
 "\270","\271","\272","\273","\274","\275","\276","\277", # 270-277 
 "\300","\301","\302","\303","\304","\305","\306","\307", # 300-307 
 "\310","\311","\312","\313","\314","\315","\316","\317", # 310-317 
 "\320","\321","\322","\323","\324","\325","\326","\327", # 320-327 
 "\330","\331","\332","\333","\334","\335","\336","\337", # 330-337 
 "\340","\341","\342","\343","\344","\345","\346","\347", # 340-347 
 "\350","\351","\352","\353","\354","\355","\356","\357", # 350-357 
 "\360","\361","\362","\363","\364","\365","\366","\367", # 360-367 
 "\370","\371","\372","\373","\374","\375","\376","\377" # 370-377 
 ) 

 zz <- file("out_isolatin1.txt", "wt", encoding=ISOLatin1)
 cat(ascii,file = zz, sep=" ")
 close(zz)

 zz <- file("out_winansi.txt", "wt", encoding=WinAnsi)
 cat(ascii,file = zz, sep=" ")
 close(zz)

 zz <- file("out_macroman.txt", "wt", encoding=MacRoman)
 cat(ascii,file = zz, sep=" ")
 close(zz)

 zz <- file("out_native.txt", "wt", encoding=native.enc)
 cat(ascii,file = zz, sep=" ")
 close(zz)