R: Examples for 'rJava::.jequals'

### ** Examples

## Don't show: 
.jinit()
## End(Don't show)
s <- .jnew("java/lang/String", "foo")
.jequals(s, "foo") # TRUE

[1] TRUE

.jequals(s, "foo", strict=TRUE) # FALSE - "foo" is not a Java object

[1] FALSE

t <- s
.jequals(s, t, strict=TRUE) # TRUE

[1] TRUE

s=="foo" # TRUE

[1] TRUE

## Don't show: 

        stopifnot(
                .jequals(s, "foo"),
                !.jequals(s, "foo", strict=TRUE),
                .jequals(s, t, strict=TRUE),
                s == "foo"
        )
## End(Don't show)

Double <- J("java.lang.Double")
d1 <- new( Double, 0.0 )
d2 <- new( Double, 1.0 )
d3 <- new( Double, 0.0 )

d1 < d2

[1] TRUE

d1 <= d3

[1] TRUE

d1 >= d3

[1] TRUE

d1 > d2

[1] FALSE

# cannot compare a Double and a String
try( d1 < "foo" )

Error in .jcall("RJavaComparator", "I", "compare", .jcast(a), .jcast(b)) : 
  NotComparableException: objects of class java.lang.Double and java.lang.String are not comparable

# but can compare a Double and an Integer
d1 < 10L

[1] TRUE

## Don't show: 
        stopifnot(
                d1 < d2       ,
                d1 <= d3      ,
                d1 >= d3      ,
                ! (d1 > d2 )  ,
                inherits( try( d1 < "foo", silent = TRUE ), "try-error" ),
                d1 < 10L )
## End(Don't show)

Examples for 'rJava::.jequals'

Comparing Java References