R/data.frame.to_matrix.R

In Rfast: A Collection of Efficient and Extremely Fast R Functions

#[export]
data.frame.to_matrix <- function(x,col.names = NULL,row.names = NULL) {
	y <- .Call("Rfast_frame_to_matrix",x)
	if(is.character(col.names) && length(col.names)==ncol(y)){
		colnames(y) <- col.names
	}else if(is.logical(col.names) && col.names == TRUE){
		colnames(y) <- colnames(x)
	}
	if(is.character(row.names) && length(row.names)==nrow(y)){
		rownames(y) <- row.names
	}else if(is.logical(row.names) && row.names == TRUE){
		rownames(y) <- rownames(x)
	}
	y
}