R/colnames_class.R

In nicohuttmann/pOmics: Framework for proteomics data analysis

#' Returns column names from data frame of specific column class
#'
#' @param data data frame
#' @param data.class data type/s
#'
#' @return
#' @export
#'
colnames_class <- function(data, data.class = "numeric") {

  col.class <- unlist(lapply(data, class))

  col.names <- names(in_(col.class, data.class))

  return(col.names)

}