r - " 'pattern' must be a non-empty character string" エラーが R の agrep で発生する

Question

次のエラーが表示されます。

'pattern' must be a non-empty character string 

以下を実行しようとすると：

rapply(as.list(Database1), function(x) agrep(x,Database2, max.distance=c(cost=1), value=T))

大規模なデータベースで

> length(Database1)
[1] 15876500

> length(Database2)
[1] 605

しかし、小さいもので実行するときはそうではありません

> length(Database1)
[1] 29

> length(Database2)
[1] 8

データベースが、以下を使用して生成できるランダムな文字の 15 ～ 25 文字の文字列になるように、再現可能なコードを作成する必要があることはわかっています。

Database1<- unlist(replicate(n, paste0(sample(LETTERS, m), collapse="")))

ここで、「n」は長さ、「m」は 15 ～ 25 の整数です。