R/subsetVector.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Set a sub group
#'
#' @param names Initial names vector
#'
#' @return
#' @export
#'
#'
subsetVector <- function(names) {

  if(!hasArg(names)) {
    message("Choose id vector: ")
    names <- getVector1()
  }


  ok <- FALSE
  while(!ok) {

    what <- whatToDo("How to subset vector?", c("not", "manual", "prefix", "find vector", "find group"))

    if(what == "not") {
      names2  <- names
    }

    if(what == "manual") {

      print(names)

      x <- as.numeric(strsplit(readline("Please indicate names by number divided by a semicolon (;): "), split = ";")[[1]])

      names2 <- names[x]

    }

    else if(what == "prefix") {

      names2 <- removePrefix(names)

    }

    if(what == "find vector") {

    message("Find vector containing subgroup: ")
    names2 <- getVector1()
    names2 <- intersect(names2, names)

    }

    if(what == "find group") {

      message("Find group containing subgroup: ")
      names2 <- getVector1()
      names2 <- names(names2)[!is.na(names2)]

    }

    print(names2)

    if(ok("Accept new vector?")) {
      names <- names2
    }

    ok <- ok("Done?")

  }

  names

}