sapply gone awry

ugly.R

# sapply gone terribly terribly wrong, or used perfectly, I can't tell.
# Use:
# input: a vector of words, and I want to know are any of the words in input are in the vector out
# out: a vector of words that I want to check against, a master list of words 
# I then want to return an index of TRUE/FALSE to determine if a word is in in the master list

input <- c("Lorem","ipsum","testing")
out <- c("Loremipsum","qwerty","keyboard","dvorak")

dindex <- sapply(input, function(x,y){ind <- grep(x,y);ifelse(length(ind) > 0, for(i in ind){ifelse(x == y[i],return(TRUE),return(FALSE))},return(FALSE))},y=out)

Here's another crack for partial matching. The stringi library has some very fast string search implementations. Use stri_detect_regex if you're doing regex matches.

stringi::stri_detect_fixed(paste(out, collapse=" "), input)