contrib/src/main/resources/r/anInt.R

#!/usr/bin/Rscript

z<-c("Hello R world\n")
x<-c(12222.3344)
y<-sum(num1, num2)
retVal<-y
as.integer(retVal)

#retVal<-sum(num1, num2)
#return(as.integer(retVal))

#z<-c("Hello R world\n")
#x<-c(12222.3344)
#return(data<-c(as.integer(x)))