| # File src/library/base/R/license.R |
| # Part of the R package, https://www.R-project.org |
| # |
| # Copyright (C) 1995-2015 The R Core Team |
| # |
| # This program is free software; you can redistribute it and/or modify |
| # it under the terms of the GNU General Public License as published by |
| # the Free Software Foundation; either version 2 of the License, or |
| # (at your option) any later version. |
| # |
| # This program is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| # GNU General Public License for more details. |
| # |
| # A copy of the GNU General Public License is available at |
| # https://www.R-project.org/Licenses/ |
| |
| licence <- license <- function() { |
| cat("\nThis software is distributed under the terms of the GNU General\n") |
| cat("Public License, either Version 2, June 1991 or Version 3, June 2007.\n") |
| cat("The terms of version 2 of the license are in a file called COPYING\nwhich you should have received with\n") |
| cat("this software and which can be displayed by RShowDoc(\"COPYING\").\n") |
| cat("Version 3 of the license can be displayed by RShowDoc(\"GPL-3\").\n") |
| cat("\n") |
| cat("Copies of both versions 2 and 3 of the license can be found\n") |
| cat("at https://www.R-project.org/Licenses/.\n") |
| cat("\n") |
| cat("A small number of files (the API header files listed in\n") |
| cat("R_DOC_DIR/COPYRIGHTS) are distributed under the\n") |
| cat("LESSER GNU GENERAL PUBLIC LICENSE, version 2.1 or later.\n") |
| cat("This can be displayed by RShowDoc(\"LGPL-2.1\"),\n") |
| cat("or obtained at the URI given.\n") |
| cat("Version 3 of the license can be displayed by RShowDoc(\"LGPL-3\").\n") |
| cat("\n") |
| cat("'Share and Enjoy.'\n\n") |
| } |