need singular and plural messages

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

Author: ripley

src/library/tools/R/check.R

@@ -3985,7 +3985,10 @@ add_dummies <- function(dir, Log)
                                  strsplit(rempat, "\\|")[[1]])
                     epq <- paste(sQuote(ep), collapse = ", ")
                     out <- paste(c(out,
-                                   "These entry points may be removed soon:",
+                                   if(length(epq) > 1L)
+                                       "These entry points may be removed soon:"
+                                   else
+                                       "This entry point may be removed soon:",
                                    epq),
                                  collapse = "\n")
                 }
@@ -6180,7 +6183,7 @@ add_dummies <- function(dir, Log)
                         c(warn_re,
                           ": (warning|note): .*Using fallback compilation with Armadillo 14[.]6[.]3")
                 ## </FIXME>
-                
+
                 warn_re <- paste0("(", paste(warn_re, collapse = "|"), ")")
 
                 lines <- grep(warn_re, lines, value = TRUE, useBytes = TRUE)