R/getVector.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Builds vector
#'
#' @return vector
#' @export
#'
#'
getVector <- function() {

  return <- getVector1()

  ok <- FALSE


  while(!ok) {



    do <- ""

    do <- whatToDo("What to do next?", "nothing", "add", "intersect", "subtract")


    if(do == "add") {

      return <- unique(c(return, getVector1()))

    }

    else if(do == "intersect") {

      return <- intersect(return, getVector1())

    }

    else if(do == "subtract") {

      return <- setdiff(return, getVector1())

    }

    else {

    }


    message(paste("Current vector is of length ", length(return), ".", sep = ""))


    ok <- ok("Vector ok?")

  }



  return


}