Displaying 1 result from an estimated 1 matches for "pkgd".
Did you mean:
pgd
2012 Sep 30
0
Small Extension to license()/licence()
...copy of the GNU General Public License is available at
# http://www.r-project.org/Licenses/
-licence <- license <- function() {
- cat("\nThis software is distributed under the terms of the GNU General\n")
+licence <- license <- function(pkg = NULL) {
+ if(!is.null(pkg)) pkgd <- packageDescription(pkg)
+ if(is.null(pkg) || pkgd[["Priority"]] == "base"){
+ if(is.null(pkg)){
+ cat("\nThis software is distributed under the terms of the GNU
General\n")
+ } else {
+ cat(pkg, "is part of R and distributed under the terms...