1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
charTrans <- function(x, old = "", new = "", ...) UseMethod("charTrans")
charTrans.character <- function(x, old = "", new = "", ...)
chartr(old = old, new = new, x = x)
charTrans.importer <- function(x, old = "", new = "", ...){
x@.Data <- lapply(x@.Data, charTrans.item, old = old, new = new, ...)
return(x)
}
charTrans.item <- function(x, old = "", new = "", ...){
if(length(ann <- annotation(x)))
annotation(x) <- charTrans.annotation(ann, old = old, new = new, ...)
if(length(vl <- labels(x)))
labels(x) <- charTrans.value.labels(vl, old = old, new = new, ...)
return(x)
}
charTrans.value.labels <- function(x, old = "", new = "", ...){
x@.Data <- chartr(x = x@.Data, old = old, new = new, ...)
return(x)
}
charTrans.annotation <- function(x,old="",new="",...){
x@.Data <- chartr(x = x@.Data, old = old, new = new, ...)
return(x)
}
charTrans.data.set <- function(x,old="",new="",...){
x@.Data <- lapply(x@.Data, charTrans.item, old = old, new = new, ...)
return(x)
}
|
