1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
translate <- function(text, old, new, multichar=FALSE) {
if(length(old)>1 || (nchar(old)!=nchar(new))) multichar <- TRUE
if(length(old)>1 && (length(new)>1 & length(new)!=length(old)))
stop("old and new must have same lengths or new must have 1 element")
if(!multichar) k <- chartr(old, new, text)
else {
if(multichar) command <- paste("sed",paste('-e "s/',old,"/",new,'/g"',
sep="", collapse=" "))
else command <- paste("tr \"", old, "\" \"", new, "\"", sep="")
## k <- sys(command, text) replace with next 2 27aug03
## Thanks: <Sebastian.Weber@aventis.com>
k <- unlist(lapply(text, function(x, command) {
sys(paste("echo \"", x, "\" | ", command, sep="")) },
command=command)) # command= 22feb04
## added command 26jan04; thanks:<Willi.Weber@aventis.com>
}
if(is.matrix(text)) k <- matrix(k, nrow=nrow(text))
k
}
|
