R/word_in_vec.R

In ntyndall/detectR:

Defines functions word_in_vec

Documented in word_in_vec

#' @title Word In Vector
#'
#' @export


word_in_vec <- function(x) return(if ('w' %in% x) which('w' == x) else NULL)