R/colClasses.R

In KasperSkytte/ksatools: Tools to make my R life easier

#' @title Get the column classes of a dataframe
#' @description Returns a vector with the column classes of a dataframe like object, or coerces the column classes as defined by user.
#'
#' @param df Dataframe like object
#' @note Cannot handle columns with more than one class.
#' @return A dataframe containing the column classes of the provided dataframe
#' @export
#'
#' @examples
#' df <- iris[1:10, ]
#' df
#' colClasses(df)
colClasses <- function(df) {
  class <- unlist(lapply(unclass(df), class))
  return(as.data.frame(class))
}