R/getList.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Defines basic data list
#'
#' @return
#' @export
#'
#'
getList <- function() {

  object <- objects(pos = .GlobalEnv)[unlist(lapply(objects(pos = .GlobalEnv), FUN = function(x) {!is.function(eval(parse(text = x)))}))]

  x <- 0
  while(!x %in% 1:length(object)) {
    print(object)
    x <- as.numeric(readline("Choose an object by number: "))
  }

  object <- object[x]

}