tst=c("This is a test text",
"This is a test text 2",
"This is another test text",
"This is another test text 2",
"This girl will test text that man",
"This boy will test text that man")
pd=phraseDoc(tst)
getDocs(pd, c("test text","another test text"))
Run the code above in your browser using DataLab