R/data.browse.R

In qtutils: Miscellaneous Qt-based utilities

##' Widget displaying available datasets
##'
##' @title Dataset viewer
##' 
##' @param all Logical indicating whether datasets from unattached
##' packages should also be shown
##' 
##' @return A QWidget instance
##' @author Deepayan Sarkar
data.browse <- function(all = TRUE)
{
    available <-
        if (all) data(package = .packages(all.available = TRUE))
        else data()
    data <- as.data.frame(available$results[, c(3, 1, 4)])
    colnames(data) <-
        c("Data", "Package", "Description")
    ans <- qdataview(data)
    ans$setSortingEnabled(TRUE)
    ans$resizeColumnsToContents()
    ans$resize(600, 400)
    ans
}