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
|
# :tabSize=4:indentSize=4:noTabs=false:folding=explicit:collapseFolds=1:
# {{{ rep
setGeneric("rep")
setMethod( "rep", "jobjRef", function( x, times = 1L, ... ){
.jcall( "RJavaArrayTools", "[Ljava/lang/Object;", "rep",
.jcast(x), as.integer(times), evalArray = FALSE )
} )
setMethod( "rep", "jarrayRef", function(x, times = 1L, ...){
.NotYetImplemented()
} )
setMethod( "rep", "jrectRef", function(x, times = 1L, ...){
.NotYetImplemented()
} )
# }}}
# {{{ clone
clone <- function( x, ... ){
UseMethod( "clone" )
}
clone.default <- function( x, ... ){
.NotYetImplemented()
}
setGeneric( "clone" )
setMethod( "clone", "jobjRef", function(x, ...){
.jcall( "RJavaArrayTools", "Ljava/lang/Object;", "cloneObject", .jcast( x ) )
} )
setMethod( "clone", "jarrayRef", function(x, ...){ .NotYetImplemented( ) } )
setMethod( "clone", "jrectRef", function(x, ...){ .NotYetImplemented( ) } )
# }}}
|
