The R Project SVN R

Rev

Rev 51899 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 51899 Rev 57265
Line 1... Line 1...
1 
# keep in step with tools/GETDISTNAME
 1 
# keep in step with tools/GETDISTNAME
2 
 
 2 
 
3 
status <- switch(R.version$status,
 3 
if(R.version$status == "Under development (unstable)") {
- 
 
 4 
    res <- "R-devel"
- 
 
 5 
} else {
4 
                 "Under development (unstable)" = "dev",
 6 
    res <- paste("R-", R.version$major, ".", R.version$minor,
5 
                 tolower(R.version$status))
 7 
                 tolower(R.version$status) , sep="")
6 
 
 8 
}
7 
res <- paste("R-", R.version$major, ".", R.version$minor, status, sep="")
 - 
 
8 
cat(res)
 9 
cat(res)