check trans.cloud change didn't break other code

[trinker]

I made a change to trans.cloud as noted in the NEWS file:

* `trans.cloud` threw an error if a single list with a named vector was passed 
  to `target.words`.  Thes behavior has been fixed.

Check other functions that rely on trans.cloud (like word_associate) as well as ones that have similar structure (trans.venn) to make sure this change doesn't affect other functions as well.

The change was as follows: From:

        if(is.list(target.words) & length(target.words)==1) {
            target.words <- unlist(target.words)
        }
        TWstatus <- is.vector(target.words) & !is.list(target.words)
        if (is.vector(target.words) & !is.list(target.words)) {
            target.words <- list(target.words)
        } 
        if ((length(target.words) + 1) != length(cloud.colors) & 
            !is.null(cloud.colors)) {
                warning("length(cloud.colors) should = length(target.words) + 1")
        } 

To:

        if(is.list(target.words) & length(target.words)==1) {
            target.words <- unlist(target.words)
        }
        if (is.vector(target.words) & !is.list(target.words)) {
            target.words <- list(target.words)
        } 
        if ((length(target.words) + 1) != length(cloud.colors) & 
            !is.null(cloud.colors)) {
                warning("length(cloud.colors) should = length(target.words) + 1")
        }  
        TWstatus <- is.vector(target.words) & !is.list(target.words)