The R Project SVN – R – Diff – /trunk/doc/manual/R-data.texi



    file = zz, sep = "\n")
cat("One more line\n", file = zz)
close(zz)
 
## convert decimal point to comma in output, using a pipe (Unix)
## both R strings and (probably) the shell need \ doubled
zz <- pipe(paste("sed s/\\\\./,/ >", "outfile"), "w")
cat(format(round(rnorm(100), 4)), sep = "\n", file = zz)
close(zz)
## now look at the output file:
file.show("outfile", delete.file = TRUE)
 

Rev 24331	Rev 24396
Line 1704...	Line 1704...
1704	`file = zz, sep = "\n")`	1704	`file = zz, sep = "\n")`
1705	`cat("One more line\n", file = zz)`	1705	`cat("One more line\n", file = zz)`
1706	`close(zz)`	1706	`close(zz)`
1707		1707
1708	`## convert decimal point to comma in output, using a pipe (Unix)`	1708	`## convert decimal point to comma in output, using a pipe (Unix)`
-		1709	`## both R strings and (probably) the shell need \ doubled`
1709	`zz <- pipe(paste("sed s/\\./,/ >", "outfile"), "w")`	1710	`zz <- pipe(paste("sed s/\\\\./,/ >", "outfile"), "w")`
1710	`cat(format(round(rnorm(100), 4)), sep = "\n", file = zz)`	1711	`cat(format(round(rnorm(100), 4)), sep = "\n", file = zz)`
1711	`close(zz)`	1712	`close(zz)`
1712	`## now look at the output file:`	1713	`## now look at the output file:`
1713	`file.show("outfile", delete.file = TRUE)`	1714	`file.show("outfile", delete.file = TRUE)`
1714		1715

The R Project SVN R

(root)/trunk/doc/manual/R-data.texi – Rev 24331 → 24396