Ok, I followed your steps and this is what was provided when I opened the file "data_for_posit.txt"
[<-- structure(list(function..... = c(" verbose = getOption(verbose)",
"{", " fileExt <- function(x) {", " db <- grepl(\\\\.[^.]+\\\\.(gz|bz2|xz)$",
" ans <- sub(.*\\\\.", " ans[db] <- sub(.*\\\\.([^.]+\\\\.)(gz|bz2|xz)$",
" x[db])", " ans", " }", " my_read_table <- function(...) {",
" lcc <- Sys.getlocale(LC_COLLATE)", " on.exit(Sys.setlocale(LC_COLLATE",
" Sys.setlocale(LC_COLLATE", " read.table(...)",
" }", " stopifnot(is.character(list))", " names <- c(as.character(substitute(list(...))[-1L])",
" if (!is.null(package)) {", " if (!is.character(package)) ",
" stop('package' must be a character vector or NULL)",
" }", " paths <- find.package(package", " if (is.null(lib.loc)) ",
" paths <- c(path.package(package", " paths)",
" paths <- unique(normalizePath(paths[file.exists(paths)]))",
" paths <- paths[dir.exists(file.path(paths", " dataExts <- tools:::.make_file_exts(data)",
" if (length(names) == 0L) {", " db <- matrix(character()",
" for (path in paths) {", " entries <- NULL",
" packageName <- if (file_test(-f", " DESCRIPTION))) ",
" basename(path)", " else .", " if (file_test(-f",
" data.rds))) {", " entries <- readRDS(INDEX)",
" }", " else {", " dataDir <- file.path(path",
" entries <- tools::list_files_with_type(dataDir",
" data)", " if (length(entries)) {",
" entries <- unique(tools::file_path_sans_ext(basename(entries)))",
" entries <- cbind(entries", " }",
" }", " if (NROW(entries)) {", " if (is.matrix(entries) && ncol(entries) == 2L) ",
" db <- rbind(db", " entries))",
" else warning(gettextf(data index for package %s is invalid and will be ignored",
" sQuote(packageName))", " }", " }",
" colnames(db) <- c(Package", " footer <- if (missing(package)) ",
" paste0(Use ", " \\n", " else NULL",
" y <- list(title = Data sets", " footer = footer)",
" class(y) <- packageIQR", " return(y)", " }",
" paths <- file.path(paths", " for (name in names) {",
" found <- FALSE", " for (p in paths) {", " tmp_env <- if (overwrite) ",
" envir", " else new.env()", " if (file_test(-f",
" rds <- readRDS(file.path(p", " if (name %in% names(rds)) {",
" found <- TRUE", " if (verbose) ",
" message(sprintf(name=%s:\\t found in Rdata.rds",
" name)", " thispkg <- sub(.*/([^/]*)/data$",
" thispkg <- sub(_.*$", " thispkg <- paste0(package:",
" objs <- rds[[name]]", " lazyLoad(file.path(p",
" filter = function(x) x %in% objs)", " break",
" }", " else if (verbose) ", " message(sprintf(name=%s:\\t NOT found in names() of Rdata.rds, i.e.,\\n\\t%s\\n",
" name", " domain = NA)",
" }", " if (file_test(-f", " warning(zipped data found for package ",
" .\\nThat is defunct, so please re-install the package.",
" domain = NA)", " if (file_test(-f",
" files <- file.path(p"), list...character.. = c(" envir = .GlobalEnv",
"", "", " x)", " ", " \\\\1\\\\2", "", "", "", "", "", " lcc))",
" C)", "", "", "", " list)", "", "", "", "", " lib.loc", "",
" TRUE)", "", "", " data))]", "", "", " nrow = 0L", "", "", " file.path(path",
"", "", "", " INDEX <- file.path(path", "", "", "", "", " data)",
" ", "", "", "", " )", "", "", "", "", " cbind(packageName",
"", " ", " domain = NA", "", "", " LibPath", "", " sQuote(paste(data(package =",
" to list the data sets in all *available* packages.)", "", " header = NULL",
"", "", "", "", " data)", "", "", "", "", "", "", " file.path(p",
" Rdata.rds))", "", "", "", " ", " domain = NA)", " \\\\1", " ",
" thispkg)", "", " Rdata)", "", "", "", "", " ", " paste(names(rds)",
"", "", " file.path(p", " sQuote(basename(dirname(p)))", " ",
"", " fp <- file.path(p", " scan(fp"), package...NULL = c(" overwrite = TRUE) ",
"", "", "", " x)", " ", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", " verbose = verbose)", "", " if (!length(package)) getwd()",
"", "", "", "", "", " ncol = 4L)", "", "", " ", "", "", "", " Meta",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", " dirname(path)",
"", "", " call. = FALSE)", "", "", " Item", "", " .packages(all.available = TRUE))))",
"", "", " results = db", "", "", "", "", "", "", "", "", "",
"", "", " Rdata.rds))) {", "", "", "", "", "", "", " p)", " thispkg)",
"", "", " envir = tmp_env", "", "", "", "", "", " collapse = ,))",
"", "", " Rdata.zip))) {", " ", "", "", " filelist))) ", " what = "
), lib.loc...NULL = c("", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", " ", "",
"", "", "", "", "", "", "", "", "", "", "", " ", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", " ", "", "", "",
"", "", " Title)", "", " ", "", "", " ", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", " ", "", "", "", "", "", " ", "", "", "", "", "", "", "",
" quiet = TRUE))"), X = c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "")), row.names = c(NA,
100L), class = "data.frame")]