only print out last parts of a file name in case of loading from file

[jwijffels]

if someone manages to build a word2vec model with 1 text vector this will be crappy:

word2vec(paste(sample(letters, 100000, replace = TRUE), collapse = ""), dim = 2)

limit to first 2500 characters in the error message?