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
|
## R/S-Plus compatibility
## $Id$
## This package was developed as a part of Summer of Code program organized by Google.
## Thanks to David A. James & Saikat DebRoy, the authors of RMySQL package.
## Code from RMySQL package was reused with the permission from the authors.
## Also Thanks to my GSoC mentor Dirk Eddelbuettel for helping me in the development.
usingR <- function(major=0, minor=0){
if(is.null(version$language))
return(FALSE)
if(version$language!="R")
return(FALSE)
version$major>=major && version$minor>=minor
}
## constant holding the appropriate error class returned by try()
if(usingR()){
ErrorClass <- "try-error"
} else {
ErrorClass <- "Error"
}
|
