R/freqTab2words.R

Defines functions freqTab2words

#helper function for word_list/trans_cloud
freqTab2words <-
function(word.list){
    if(is.data.frame(word.list)){
        rep(word.list[, 1], word.list[, 2])
    } else {
        lapply(word.list, function(x) rep(x[, 1], x[, 2]))
    }
}
trinker/qdap documentation built on Sept. 30, 2020, 6:28 p.m.