R/removePrefix.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Removes vector entries based on specified prefix
#'
#' @param names
#'
#' @return
#' @export
#'
#'
removePrefix <- function(names) {

  if(!hasArg(names)) {
    names <- getVector1()
  }


  done <- F

  while(!done) {

    prefix <- readline("Based on which prefix should entires be removed? (CON/REV/...) ")

    if(prefix != "") {
      message(paste(sum(regexpr(prefix, names) == 1), " proteins will be removed based on the prefix ", prefix, ".", sep = ""))

      if(ok("Remove?")) {
        names <- names[regexpr(prefix, names) != 1]

        done <- ok("Done?")
      }

    }

    else if(prefix == "") {
      done <- ok("Done?")
    }

  }

  names

}