R/unlist_dt.R

In neurogenomics/PeakyFinders: Mining, Calling, and Importing Epigenomic Peaks in R

#' Unlist a data.table
#' 
#' Identify columns that are lists and turn them into vectors.
#' @param dt data.table
#' @param verbose Print messages.
#' @keywords internal
#' @importFrom data.table .SD :=
#' @importFrom methods is
#' @returns \code{dt} with list columns turned into vectors. 
unlist_dt <- function(dt,
                      spread=FALSE,
                      verbose=TRUE) {
    .SD <- NULL 
    cols <- names(dt)[ unlist(lapply(dt, methods::is,"list")) ]
    if(length(cols)>0){
        if(spread){
             
        } else {
            messager("Unlisting",length(cols),"columns.",v=verbose)
            dt[ , (cols) := lapply(.SD,unlist), .SDcols = cols]
        }
    } 
}