1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
\name{java-tools}
\alias{java-tools}
\title{java tools used internally in rJava}
\description{java tools used internally in rJava}
\examples{
\dontshow{
# running the java unit tests from the R examples
.jinit()
J("RJavaTools_Test")$runtests()
J("RJavaArrayTools_Test")$runtests()
J("ArrayWrapper_Test")$runtests()
J("RectangularArrayBuilder_Test")$runtests()
p <- .jnew( "java/awt/Point" )
classes <- .Call( rJava:::RgetSimpleClassNames, p@jobj, TRUE )
stopifnot( all( c( "Point", "Point2D", "Object", "error", "condition" ) \%in\% classes ) )
classes <- .Call( rJava:::RgetSimpleClassNames, p@jobj, FALSE )
stopifnot( all( c( "Point", "Point2D", "Object" ) \%in\% classes ) )
}
}
|
