R/read2.R

In bertamiro/lpattern: Detection of scatterplots with L-shaped pattern

#' read2
#'
#' \code{read2} Wrapper to read 2 files with the same format, dimensions and row and column names.
#'
#' @param expresFName Name of first file, expected to contain expression values.
#' @param metFName Name of second file, expected to contain methylation values.
#' @param dataDirectory Name of directory where the files are staore. Defaults to ".".
#' @param sepChar Name of character used to separate matrix columns. Defaults to ";".
#' @param decChar Name of character used as decimal point. Defaults to ".".
#'
#' @export read2
#' @examples
#'
#' \dontrun{
#' (myData <- read2(myExpr, myMet))
#' }
read2 <- function (expresFName, metFName,
                   dataDirectory=".", sepChar=";", decChar= "."){
  expres<- read.table(file=file.path(dataDirectory, expresFName), header=TRUE,
                      sep=sepChar,dec=decChar, row.names = 1)
  mets <-read.table(file=file.path(dataDirectory, metFName), header=TRUE,
                    sep=sepChar,dec=decChar, row.names = 1)
  if (checkData(expres, mets))
    result <- list(expres,mets)
  else
    result <- NULL
  return(result)
}