resolve PR#18905: typos in {tools}

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

Author: maechler

src/library/tools/R/CRANtools.R

@@ -196,7 +196,7 @@ function()
     Sys.getenv("R_CRAN_SRC", .get_CRAN_repository_URL())
 
 ## This allows for partial local mirrors, or to look at a
-## more-freqently-updated mirror.  Exposed as utils::findCRANmirror
+## more-frequently-updated mirror.  Exposed as utils::findCRANmirror
 CRAN_baseurl_for_web_area <-
 function()
     Sys.getenv("R_CRAN_WEB", .get_CRAN_repository_URL())

src/library/tools/R/Rd2pdf.R

@@ -498,7 +498,7 @@
     if (is.character(out) && !nzchar(out)) {
         ## choose 'out' from filename
         bf <- sub("\\.[Rr]d$", "", file)
-        exts <- c(txt=".txt", html=".html", latex=".tex", exmaple=".R")
+        exts <- c(txt=".txt", html=".html", latex=".tex", example=".R")
         out <- paste0(bf,  exts[type])
     } else if (is.null(out)) out <- ""
     if (!nzchar(os)) os <- .Platform$OS.type

src/library/tools/R/check.R

@@ -4044,7 +4044,7 @@ add_dummies <- function(dir, Log)
 
     check_rust <- function()
     {
-        ## It is impossible to tell definiitively if a package
+        ## It is impossible to tell definitively if a package
         ## compiles rust code.  SystemRequirements in DESCRIPTION is
         ## fres-format, and only advisory.  So we look at the
         ## installation log, which we found in check_src()
@@ -5679,7 +5679,7 @@ add_dummies <- function(dir, Log)
             ## <https://bugs.astron.com/view.php?id=316>
             pretest <- function(f)
             {
-                ## The format is (in bytes) the version mumber,
+                ## The format is (in bytes) the version number,
                 ## year-1900 of last change, month#, day, ...
                 z <-  readBin(f, raw(), 2L)
                 identical(z, as.raw(c(3, 122)))
@@ -7208,7 +7208,7 @@ add_dummies <- function(dir, Log)
         if (WINDOWS) {
             ## always has sub-archs as from R 2.12.0.
             ## usually if two are installed, it was done on a 64-bit OS,
-            ## but the filesystem might be shared betweeen OSes.
+            ## but the filesystem might be shared between OSes.
             f <- dir(file.path(R.home(), "bin"))
             archs <- f[f %in% c("i386", "x64")]
             ## if we have x64, can only run it on a 64-bit OS
@@ -7684,7 +7684,7 @@ add_dummies <- function(dir, Log)
         ## have a 'DESCRIPTION.in' file (instead of 'DESCRIPTION'),
         ## with Version and License fields containing '@VERSION@' for
         ## substitution by configure.  Earlier bundles had packages
-        ## containing DESCRIPTIION.in, hence the extra check for
+        ## containing DESCRIPTION.in, hence the extra check for
         ## Makefile.in.
 
         is_base_pkg <- is_rec_pkg <- FALSE
@@ -7758,7 +7758,7 @@ add_dummies <- function(dir, Log)
                 resultLog(Log, "OK")
             else  if (file.exists(file.path(pkgdir, "NAMESPACE"))) {
                 errorLog(Log,
-                       "File NAMESPACE does not exist but there is a case-insenstiive match.")
+                       "File NAMESPACE does not exist but there is a case-insensitive match.")
                 summaryLog(Log)
                 do_exit(1L)
             } else if (dir.exists(file.path(pkgdir, "R"))) {

src/library/tools/R/install.R

@@ -1526,7 +1526,7 @@ if(FALSE) {
 		    ## Tweak fake installation to provide an 'empty'
 		    ## useDynLib() for the time being.  Completely
 		    ## removing the directive results in checkFF()
-		    ## being too aggresive in the case where the
+		    ## being too aggressive in the case where the
 		    ## presence of the directive enables unambiguous
 		    ## symbol resolution w/out 'PACKAGE' arguments.
 		    ## However, empty directives are not really meant

src/library/tools/R/license.R

@@ -33,7 +33,7 @@
 ##    * The name of abbreviation of a versioned license, optionally
 ##      followed by a version spec
 ##    * The name of a versioned license followed by the version
-##    * The abbrevation of a versioned license combined with '-',
+##    * The abbreviation of a versioned license combined with '-',
 ##   optionally followed by an extension spec as in B (in principle,
 ##   only if the base license is extensible).
 ##
@@ -89,7 +89,7 @@ function(paths = NULL)
     ldb[is.na(ldb)] <- ""
     ## (Could also keep NAs and filter on is.finite() in subsequent
     ## computations.)
-    ## FOSS == "yes" implues Restricts_use = "no":
+    ## FOSS == "yes" implies Restricts_use = "no":
     ldb[ldb[, "FOSS"] == "yes", "Restricts_use"] <- "no"
     ldb <- data.frame(ldb, stringsAsFactors = FALSE)
     ldb$Labels <- R_license_db_labels(ldb)

src/library/tools/R/news.R

@@ -419,7 +419,7 @@ function(file, out = stdout(), codify = FALSE)
         }
     }
 
-    ## No longer support taking NEWS files without correponding
+    ## No longer support taking NEWS files without corresponding
     ## DESCRIPTION file as being from R itself (PR #16556).
 
     meta <- .read_description(dfile)

src/library/tools/R/testing.R

@@ -145,7 +145,7 @@ massageExamples <-
 ## compares 2 files
 ## 2022-07: it is reasonable to assume that almost all users will
 ## have diff (it is part of Rtools), and currently only GNU diff
-## (from 2022 on macOS) and FreeBSD versions semm to be in use.
+## (from 2022 on macOS) and FreeBSD versions seem to be in use.
 ## So the support without diff is minimal.
 Rdiff <- function(from, to, useDiff = FALSE, forEx = FALSE,
                   nullPointers = TRUE, Log = FALSE)

src/library/tools/R/utils.R

@@ -232,7 +232,7 @@ function(x)
     if(any(ind)) {
         message(paste0(which(ind), ": ",
                        ## iconv will usually substitute,
-                       ## but inplementations including macOS 14
+                       ## but implementations including macOS 14
                        ## may translate to ASCII.
                        iconv(x[ind], "", "ASCII", sub = "byte"),
                        collapse = "\n"), domain = NA)
@@ -1020,7 +1020,7 @@ function(con, n = 4L)
     ## Try matching both the regular error indicator ('!') as well as
     ## the file line error indicator ('file:line:').
     pos <- grep("(^! |^!pdfTeX error:|:[0123456789]+:.*[Ee]rror)", lines)
-    ## unforunately that was too general and caught false positives
+    ## unfortunately that was too general and caught false positives
     ## Errors are typically of the form
     ## ! LaTeX Error:
     ## !pdfTeX error:

src/library/tools/src/Rsha256.c

@@ -41,7 +41,7 @@ static void *Rsha256_buffer (const void *buffer, size_t len, void *resblock)
   return Rsha256_finish_ctx(&ctx, resblock);
 }
 
-/* This is essentailly identical to Rmd5 */
+/* This is essentially identical to Rmd5 */
 
 /* .Call so manages R_alloc stack */
 SEXP Rsha256(SEXP files)

src/library/tools/tests/hashes.R

@@ -29,7 +29,7 @@ stopifnot(identical(sha256sum(bytes=rep(charToRaw("a"),1e6)),
 ## let's see if there are hidden HMAC functions - if so, test them
 if (!is.null(environment(tools::sha256sum)[["hmac"]])) { 
 
-## [[ we have not expoorted HMAC functions yet ]]
+## [[ we have not exported HMAC functions yet ]]
 hmac.md5 <- tools:::hmac.md5
 hmac.sha256 <- tools:::hmac.sha256