allow quiet and verbose be true simultaneously

git-svn-id: https://svn.r-project.org/R/trunk@88400 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: maechler

src/library/base/man/options.Rd

@@ -1,6 +1,6 @@
 % File src/library/base/man/options.Rd
 % Part of the R package, https://www.R-project.org
-% Copyright 1995-2026 R Core Team
+% Copyright 1995-2025 R Core Team
 % Distributed under GPL 2 or later
 
 \name{options}
@@ -452,9 +452,8 @@ getOption(x, default = NULL)
 
     \item{\code{quiet}:}{logical.  Should \R be (more) \dQuote{quiet},
       notably on startup report?  Set to \code{TRUE} by the command-line
-      option \option{--quiet}.  \code{quiet} and \code{verbose} cannot both
-      be true.}
-
+      option \option{--quiet}.% \code{quiet} and \code{verbose} cannot both be true.
+    }
     \item{\code{warn}:}{integer value to set the handling of warning
       messages by the default warning handler.  If
       \code{warn} is negative all warnings are ignored.  If \code{warn}

src/main/options.c

@@ -900,17 +900,21 @@ attribute_hidden SEXP do_options(SEXP call, SEXP op, SEXP args, SEXP rho)
 		if (TYPEOF(argi) != LGLSXP || LENGTH(argi) != 1)
 		    error(_("invalid value for '%s'"), CHAR(namei));
 		Rboolean k = asRbool(argi, call);
+#ifdef NO_QUIET_AND_VERBOSE 
 		if(k && R_Verbose)
 		    error(_("cannot set both options 'quiet' and 'verbose' to TRUE"));
+#endif
 		R_Quiet = k;
 		SET_VECTOR_ELT(value, i, SetOption(tag, ScalarLogical(k)));
 	    }
 	    else if (streql(CHAR(namei), "verbose")) {
 		if (TYPEOF(argi) != LGLSXP || LENGTH(argi) != 1)
 		    error(_("invalid value for '%s'"), CHAR(namei));
 		Rboolean k = asRbool(argi, call);
+#ifdef NO_QUIET_AND_VERBOSE 
 		if(k && R_Quiet)
 		    error(_("cannot set both options 'quiet' and 'verbose' to TRUE"));
+#endif
 		R_Verbose = k;
 		SET_VECTOR_ELT(value, i, SetOption(tag, ScalarLogical(k)));
 	    }