How to specify word in word embeddings in R

Question

I have replicated the word embeddings code from Ben Schmidt\'s excellent tutorial on word2vec in R.

With a trained model, the code below finds ALL food terms in the c