The R Project SVN R

Rev

Rev 70779 | Rev 82259 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 70779 Rev 72562
Line 1... Line 1...
1 
% File src/library/base/man/Version.Rd
 1 
% File src/library/base/man/Version.Rd
2 
% Part of the R package, https://www.R-project.org
 2 
% Part of the R package, https://www.R-project.org
3 
% Copyright 1995-2015 R Core Team
 3 
% Copyright 1995-2017 R Core Team
4 
% Distributed under GPL 2 or later
 4 
% Distributed under GPL 2 or later
5 
 
 5 
 
6 
\name{R.Version}
 6 
\name{R.Version}
7 
\title{Version Information}
 7 
\title{Version Information}
8 
\alias{R.Version}
 8 
\alias{R.Version}
Line 80... Line 80...
80 
plot(0) # any plot
 80 
plot(0) # any plot
81 
mtext(R.version.string, side = 1, line = 4, adj = 1) # a useful bottom-right note
 81 
mtext(R.version.string, side = 1, line = 4, adj = 1) # a useful bottom-right note
82 
 
 82 
 
83 
## a good way to detect macOS:
 83 
## a good way to detect macOS:
84 
if(grepl("^darwin", R.version$os)) message("running on macOS")
 84 
if(grepl("^darwin", R.version$os)) message("running on macOS")
- 
 
 85 
 
- 
 
 86 
## Short R version string, ("space free", useful in file/directory names;
- 
 
 87 
##                          also fine for unreleased versions of R):
- 
 
 88 
shortRversion <- function() {
- 
 
 89 
   rvs <- R.version.string
- 
 
 90 
   if(grepl("devel", (st <- R.version$status)))
- 
 
 91 
       rvs <- sub(paste0(" ",st," "), "-devel_", rvs, fixed=TRUE)
- 
 
 92 
   gsub("[()]", "", gsub(" ", "_", sub(" version ", "-", rvs)))
- 
 
 93 
}
- 
 
 94 
\donttest{shortRversion()}
- 
 
 95 
\dontshow{stopifnot(identical(grep(" ", shortRversion()), integer(0)))}
85 
}
 96 
}
86 
\keyword{environment}
 97 
\keyword{environment}
87 
\keyword{sysdata}
 98 
\keyword{sysdata}
88 
\keyword{programming}
 99 
\keyword{programming}