R/extractData.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Extracts data frames from raw data
#'
#' @return
#' @export
#'
#'
#'
extractData <- function() {

  message("Find raw data frame.")
  data <- getData()



  message("Specify data based on: ")
  data <- data[, getNames(data, 2)]


  data <- transposeData(data)


  rownames(data) <- modifyNames(rownames(data))
  colnames(data) <- modifyNames(colnames(data))


  if(ok("Specify rownames?")) {
    data <- data[subsetVector(rownames(data)), ]
  }

  if(ok("Specify colnames?")) {
    data <- data[, subsetVector(colnames(data))]
  }






  saveThis(as.matrix(data), destination = "dat")

}