requested improvement to search_term and search_term_collocations to be joined

[data-steve]

using this structure would allow you to get both options in one function.

sterm <- function(dat, ..., freq = T){
    if (freq){
        dat %>%
            search_term(.,unlist(colo(...))) %>%         # possibly don't need the unlist once other issue fixed
            frequent_terms()
    } else {
        dat %>%
            search_term(.,unlist(colo(...)))
    }
}