search installed packages for data of specified types

find_data_arrays.R

i1 <- installed.packages()
null <- matrix(nrow=0, ncol = 2,
               dimnames=list(NULL, c("Item", "type")))
get_data <- function(pkg) {
    cat(pkg,"\n")
    dd <- data(package=pkg)$results
    ## library(pkg, character.only = TRUE)
    ## on.exit(try(detach(paste0("package:", pkg))))
    if (nrow(dd) == 0) return(NULL)
    FUN <- function(x) {
        nm <- gsub(" .*$", "", x["Item"])
        data(list=nm, package = pkg)
        d0 <- get(nm)
        class(d0)[1]
    }
    aa <- apply(dd, 1, function(x) purrr::safely(FUN, NA)(x)$result)
    dplyr::tibble(Item = dd[,"Item"], type = aa)
}


res <- purrr::map_dfr(i1[,"Package"], get_data, .id = "package")

sort(table(res$type), decreasing = TRUE)
dplyr::filter(res, type == "array")