R/dt_to_df.R

In NathanSkene/EWCE: Expression Weighted Celltype Enrichment

#' Convert a \code{data.table} to a \code{data.frame}.
#'
#' Converts a \code{data.table} to a \code{data.frame} by setting the
#'  first column as the rownames.
#'  
#' @return \link[base]{data.frame}
#'
#' @keywords internal
dt_to_df <- function(exp) {
    if (methods::is(exp, "data.table")) {
        col1 <- colnames(exp)[1]
        exp <- data.frame(exp,
            row.names = col1,
            check.rows = FALSE,
            check.names = FALSE
        )
    }
    return(exp)
}