Now globalsByName(names) asserts that the returned result has names i…

…dentical to 'names' [#92]

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: globals
-Version: 0.16.2-9002
+Version: 0.16.2-9003
 Depends:
     R (>= 3.1.2)
 Imports:
@@ -20,5 +20,5 @@ LazyLoad: TRUE
 ByteCompile: TRUE
 URL: https://globals.futureverse.org, https://github.com/HenrikBengtsson/globals
 BugReports: https://github.com/HenrikBengtsson/globals/issues
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)

R/globalsByName.R

@@ -18,16 +18,19 @@
 #' If the special argument does not exist, then the value is `NA`, and
 #' the corresponding `where` attributes is `NULL`.
 #'
-#' @return A \link{Globals} object.
+#' @return A \link{Globals} object with `length(names)` elements and
+#' an attribute `where` with `length(names)` elements.
+#' Both of sets of elements are named after `names`.
 #'
 #' @example incl/globalsByName.R
 #'
 #' @export
 globalsByName <- function(names, envir = parent.frame(), mustExist = TRUE,
                           ...) {
   names <- as.character(names)
-
   nnames <- length(names)
+
+  namesOrg <- names
 
   debug <- getOption("globals.debug", FALSE)
   if (debug) {
@@ -73,6 +76,7 @@ globalsByName <- function(names, envir = parent.frame(), mustExist = TRUE,
       }
     }
   }
+#  stop_if_not(identical(names(globals), names))
 
   if (length(dotdotdots) > 0L) {
     for (name in c("...", dotdotdots)) {
@@ -93,7 +97,8 @@ globalsByName <- function(names, envir = parent.frame(), mustExist = TRUE,
       globals[[name]] <- ddd
     }
   }
-
+  stop_if_not(identical(names(globals), namesOrg))
+
   stop_if_not(
     is.list(where),
     length(where) == length(globals),