fix PR#18904 (typos in /methods/)

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

Author: maechler

src/library/methods/R/BasicClasses.R

@@ -518,7 +518,7 @@
 }
 
 ## .OldClassesList is a purely heuristic list of known old-style classes, with emphasis
-## on old-style class inheritiance.  Used in .InitBasicClasses to call setOldClass for
+## on old-style class inheritance.  Used in .InitBasicClasses to call setOldClass for
 ## each known class pattern.
 ## .OldClassesPrototypes is a list of S3 classes for which prototype
 ## objects are known & reasonable.

src/library/methods/R/Methods.R

@@ -1343,7 +1343,7 @@ implicitGeneric <- function(...) NULL
 ### Add the named function to the table of implicit generics in environment where.
 ###
 ### If there is a generic function of this name, it is saved to the
-### table.  This is the reccomended approach and is required if you
+### table.  This is the recommended approach and is required if you
 ### want the saved generic to include any non-default methods.
 ###
   {

src/library/methods/R/MethodsList.R

@@ -144,7 +144,7 @@ insertMethod <-
         length(sigArgs) <- n
         if(is.na(match(nextArg, sigArgs))) {
             n <- match(nextArg, args) - n
-            if(is.na(n)) { ## not in args eitiher
+            if(is.na(n)) { ## not in args either
                 n <- 1
                 args <- c(args, nextArg)
             }

src/library/methods/R/MethodsListClass.R

@@ -92,7 +92,7 @@ loadMethod <- function(method, fname, envir) method
     assign("asMethodDefinition",
            function(def, signature = list(.anyClassName), sealed = FALSE, fdef = def) {
         ## primitives can't take slots, but they are only legal as default methods
-        ## and the code will just have to accomodate them in that role, w/o the
+        ## and the code will just have to accommodate them in that role, w/o the
         ## MethodDefinition information.
         ## NULL is a valid def, used to remove methods.
         switch(typeof(def),

src/library/methods/R/RClassUtils.R

@@ -419,7 +419,7 @@ superClassDepth <-
             more <- Recall(superClass, soFar)
             whatMore <- more$label
             if(!all(is.na(match(whatMore, soFar)))) {
-                ## elminate classes reachable by more than one path
+                ## eliminate classes reachable by more than one path
                 ## (This is allowed in the model, however)
                 ok <- is.na(match(whatMore, soFar))
                 more$depth <- more$depth[ok]
@@ -1229,7 +1229,7 @@ completeSubclasses <-
       what2 <- what[affected]
       dups <- unique(what2[duplicated(what2)])
       if(length(dups) == 0) {
-        ##  eliminating conditonal relations removed duplicates
+        ##  eliminating conditional relations removed duplicates
         if(length(conflicts) > 0)
           attr(ext, "conflicts") <- unique(c(conflicts, attr(ext, "conflicts")))
         return(ext)
@@ -2032,7 +2032,7 @@ assign("#HAS_DUPLICATE_CLASS_NAMES", FALSE, envir = .classTable)
         i <- match(newpkg, names(prev))
         if(!is.na(i))
             prev[[i]] <- NULL
-        else # we might warn about unchaching more than once
+        else # we might warn about uncaching more than once
             return()
         if(length(prev) == 0L)
             return(remove(list = name, envir = .classTable))

src/library/methods/R/RMethodUtils.R

@@ -577,7 +577,7 @@ getGeneric <-
         i <- match(newpkg, names(prev))
         if(!is.na(i))
             prev[[i]] <- NULL
-        else           # we might warn about unchaching more than once
+        else           # we might warn about uncaching more than once
             return()
         if(length(prev) == 0L)
             return(remove(list = name, envir = table))
@@ -1430,7 +1430,7 @@ metaNameUndo <- function(strings, prefix, searchForm = FALSE)
 
 .identC <- function(c1 = NULL, c2 = NULL)
 {
-    ## are the two objects identical class or genric function string names?
+    ## are the two objects identical class or generic function string names?
     .Call(C_R_identC, c1, c2)
 }
 
@@ -1451,7 +1451,7 @@ matchDefaults <- function(method, generic)
         garg <- gargs[[arg]]
         if(missing(marg) && !missing(garg)) {
             changes <- TRUE
-            margs[arg] <- gargs[arg] # NOT  [[]], which woud fail for NULL element
+            margs[arg] <- gargs[arg] # NOT  [[]], which would fail for NULL element
         }
     }
     if(changes)
@@ -1712,7 +1712,7 @@ utils::globalVariables(c(".MTable", ".AllMTable", ".dotsCall"))
 
 if(FALSE) {
 ## Defined but not currently used:
-## utilitity to test well-defined classes in signature,
+## utility to test well-defined classes in signature,
 ## for setMethod(), setAs() [etc.?], the result to be
 ## assigned in package where=
 ## Returns a list of signature, messages and level of error

src/library/methods/R/is.R

@@ -196,7 +196,7 @@ setIs <-
             classDef2@prototype <-
                 if(classDef@virtual)
                     classDef@prototype
-                else # new(), but without intialize(), which may require an arg.
+                else # new(), but without initialize(), which may require an arg.
                     .Call(C_new_object, classDef)
         }
     }

src/library/methods/R/methods-defunct.R

@@ -39,7 +39,7 @@
 ## Defunct in 4.5.0
 MethodsListSelect <-
   ## select the element of a MethodsList object corresponding to the
-  ## actual arguments (as defined in the suppled environment),
+  ## actual arguments (as defined in the supplied environment),
   ## and return the object, extended to include that method if necessary.
   ##
   ## Works recursively.  At each level finds an argument name from the current `mlist'

src/library/methods/R/methodsTable.R

@@ -685,7 +685,7 @@
 }
 
 .newSignature <- function(classes, names) {
-  ## a simple version to deal with boostrapping stage, used in new() etc
+  ## a simple version to deal with bootstrapping stage, used in new() etc
     n <- min(length(classes), length(names))
   i <- seq_len(n)
     ## a corresponding set of package names
@@ -1124,7 +1124,7 @@ useMTable <- function(onOff = NA)
                              f
                            }))
     }
-    ## now the next generations recusively
+    ## now the next generations recursively
     if(length(funs) > start) {
       nmore <- length(funs) - start
       more <- Recall(funs[(start+1):length(funs)])

src/library/methods/R/oldClass.R

@@ -299,7 +299,7 @@ S3Class <- function(object) {
     object
 }
 
-## rename a class definition:  needs to change if any additional occurences of class
+## rename a class definition:  needs to change if any additional occurrences of class
 ## name are added, other than the className slot and the super/sub class names
 ## in the contains, subclasses slots respectively.
 .renameClassDef <- function(def, className) {