###################################################
### chunk number 1: 
###################################################
#line 73 "vignettes/RWebServices/inst/doc/RToJava.Rnw"
options(width=60)


###################################################
### chunk number 2: simplestFunc
###################################################
#line 115 "vignettes/RWebServices/inst/doc/RToJava.Rnw"
square <- function(x) {
    return(x^2)
}
square(10)


###################################################
### chunk number 3: simplestTypeInfo
###################################################
#line 129 "vignettes/RWebServices/inst/doc/RToJava.Rnw"
library(TypeInfo)
STS <- SimultaneousTypeSpecification
TS <- TypedSignature

typeInfo(square) <-  
  STS(TS(x = "numeric"), returnType = "numeric")


###################################################
### chunk number 4: simplestTypeInfoQuery
###################################################
#line 151 "vignettes/RWebServices/inst/doc/RToJava.Rnw"
typeInfo(square)


###################################################
### chunk number 5: simplestRWebServices eval=FALSE
###################################################
## #line 191 "vignettes/RWebServices/inst/doc/RToJava.Rnw"
## library(CaAffy)
## RJavaSignature(c(caAffy))


###################################################
### chunk number 6: classUnionEg
###################################################
#line 343 "vignettes/RWebServices/inst/doc/RToJava.Rnw"
setClass("A", "logical")
setClass("B", "character")
setClassUnion("C", c("A","B"))


###################################################
### chunk number 7: S4-limits
###################################################
#line 396 "vignettes/RWebServices/inst/doc/RToJava.Rnw"
setClass("D", representation=representation(x="numeric"))
setClass("E", contains="D", representation=representation(y="numeric"))