cleanup from c30404

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

Author: smeyer

src/library/utils/R/data.R

@@ -123,9 +123,6 @@ function(..., list = character(), package = NULL, lib.loc = NULL,
                     if (verbose)
                         message(sprintf("name=%s:\t found in Rdata.rds", name),
                                 domain=NA)
-                    thispkg <- sub(".*/([^/]*)/data$", "\\1", p)
-                    thispkg <- sub("_.*$", "", thispkg) # versioned installs.
-                    thispkg <- paste0("package:", thispkg)
                     objs <- rds[[name]] # guaranteed an exact match
                     lazyLoad(file.path(p, "Rdata"), envir = tmp_env,
                              filter = function(x) x %in% objs)