elevate reporting data with "bytes" encoding to a warning

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

Author: ripley

src/library/tools/R/QC.R

@@ -4984,12 +4984,18 @@ function(x, ...)
                            "Note: found %d marked UTF-8 string",
                            "Note: found %d marked UTF-8 strings"), 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",