R/df.R

In stackcon/rngt: General data science and utilities package

#' Return data types
#'
#' @param x object
#'
#' @return data types
#' @export
#'
dtypes <- function (x) {
	if( !is.null(attr(x, 'spec')) ){
		attr(x, "spec")
	} else {
		#utils::str(x, give.attr=FALSE, comp.str='', give.length=FALSE)
		cbind('dtype'=sapply(x, typeof))
	}
}