R/getSampleGroup.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Finds group vector
#'
#' @return
#' @export
#'
#'
getSampleGroup <- function() {


  ready <- F

  while(!ready) {

    fromGroup <- readline("Is there a group? (ja/nein) ")

    if(fromGroup == "ja") {

      print(names(info[["group"]]))
      group.set <- as.numeric(readline("Which set of groups? "))

      print(info[["group"]][[group.set]])

      group <- readline("Please specify group name or number: ")

      if(is.vector(info[["group"]][[group.set]][[group]])) {
        group <- !is.na(info[["group"]][[group.set]][[group]])
        ready <- T
        message("Following samples will be used:")
        print(info[["name"]][[group.set]][group])
      }

      else if(is.vector(info[["group"]][[group.set]][[as.numeric(group)]])) {
        group <- info[["group"]][[group.set]][[as.numeric(group)]]
        ready <- T
        message("Following samples will be used:")
        print(info[["name"]][[group.set]][!is.na(group)])
      }

      else {
        message("Please try again.")
      }

    }

    else if(fromGroup == "nein") {
      message("Make a group for it.")
    }


    else {
      message("Come on eh..")
    }


  }

  group

}