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
33
34
|
Iconv <- function(x,from="",to="",...) UseMethod("Iconv")
Iconv.character <- function(x,from="",to="",...){
iconv(x,from=from,to=to,...)
}
Iconv.importer <- function(x,from="",to="",...){
x@.Data <- lapply(x@.Data,Iconv.item,from,to,...)
return(x)
}
Iconv.item <- function(x,from="",to="",...){
if(length(ann <- annotation(x)))
annotation(x) <- Iconv.annotation(ann,from=from,to=to,...)
if(length(vl <- labels(x)))
labels(x) <- Iconv.value.labels(vl,from=from,to=to,...)
return(x)
}
Iconv.value.labels <- function(x,from="",to="",...){
x@.Data <- iconv(x@.Data,from=from,to=to,...)
return(x)
}
Iconv.annotation <- function(x,from="",to="",...){
x@.Data <- iconv(x@.Data,from=from,to=to,...)
return(x)
}
Iconv.data.set <- function(x,from="",to="",...){
x@.Data <- lapply(x@.Data,Iconv.item,from,to,...)
return(x)
}
|
