From 4580ec3a9a0e9dd5d394015d348a0b376902549d Mon Sep 17 00:00:00 2001 From: hornik Date: Wed, 6 Nov 2024 11:01:47 +0000 Subject: [PATCH] Revert c87269. git-svn-id: https://svn.r-project.org/R/trunk@87290 00db46b3-68df-0310-9c12-caf00c1e9a41 --- src/library/tools/R/QC.R | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/library/tools/R/QC.R b/src/library/tools/R/QC.R index 6b02b261b83..d940c482e13 100644 --- a/src/library/tools/R/QC.R +++ b/src/library/tools/R/QC.R @@ -4980,18 +4980,18 @@ function(x, ...) "Note: found %d marked UTF-8 string", "Note: found %d marked UTF-8 strings"), n) }, - if(n <- x$bytes) { ## elevated to a Warning in 4.5.0 - sprintf( - ngettext(n, - "Warning: found %d string marked as \"bytes\"", - "Warning: found %d strings marked as \"bytes\""), n) - }, - ## if((n <- x$bytes) && !suppress_notes) { + ## if(n <- x$bytes) { ## elevated to a Warning in 4.5.0 ## sprintf( ## ngettext(n, - ## "Note: found %d string marked as \"bytes\"", - ## "Note: found %d strings marked as \"bytes\""), n) + ## "Warning: found %d string marked as \"bytes\"", + ## "Warning: found %d strings marked as \"bytes\""), n) ## }, + if((n <- x$bytes) && !suppress_notes) { + sprintf( + ngettext(n, + "Note: found %d string marked as \"bytes\"", + "Note: found %d strings marked as \"bytes\""), n) + }, if(nr <- nrow(x$unknown)) { msg <- ngettext(nr, "Warning: found non-ASCII string",