R/transposeData.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Transpose data frames
#'
#' @param data data frame
#' @param transpose Should data frame be transposed w/out asking
#'
#' @return
#' @export
#'
#'
transposeData <- function(data, transpose) {

  if(!hasArg(transpose)) {

    print(data[1:(if(nrow(data) >= 3) 3 else nrow(data)),
               1:(if(ncol(data) >= 3) 3 else ncol(data))])

    transpose <- ok("Transpose data frame?")

  }

  if(transpose) {

    if(is.matrix(data)) {
      return <- t(data)
    }

    else {
      return <- as.data.frame(t(data))
    }

    message("Data frame transposed.")
  }

  else {
    return <- data
    message("Data frame not transposed.")
  }

  return

}