Error in glove_event$fit_transform in text2vec package

Question

While experimenting with word embedding using text2vec package in R, the following error is thrown

embd_dim <- 5

glove_event <- GlobalVectors$new(rank = embd_dim, x_max = 10,learning_rate = 0.01, alpha = 0.95, lambda = 0.005)

wrd_embd_event <- glove_event$fit_transform(tcm_event, n_iter = 200, convergence_tol = 0.001)

Error in glove_event$fit_transform(tcm_event, n_iter = 200, convergence_tol = 0.001) : 
  Cost is too big, probably something goes wrong... try smaller learning rate

Smaller learning rate has not helped. Similar outcome from experiment with different skip_grams_window values in ctreate_tcm() and different rank values in glove_event().

I am clueless about the source of this error.