data.frame中的错误：参数暗示行数不同Shiny

Question

我正在做一个有很多功能的闪亮应用程序。这个概念： 用户输入一些文本。从数据库中提取包含文本的行。然后，我正在执行一些kmeans，ngrams等操作。如果重新键入文本并再次运行，它将失败并打印：data.frame中的错误：参数表示行数不同。在使用函数之前，它一直运行良好。这里是一些代码：

此功能是全局的

  kmeans_model <-kmeans(dist.matrix.jaccard,
                        centers = recommended.clusters,
                        iter.max = iters, algorithm = "Forgy")
}

我以这种方式在服务器中使用该功能：

kmeans<-reactive({
    dist.matrix.jaccard<-dist.matrix.jaccard()
    output<-outputSummary()
    stop.clustering<-output[[2]]
    recommended.clusters<-min(stop.clustering)
    getKmeans(dist.matrix.jaccard, recommended.clusters,200)
  })

然后每次我使用kmeans时都会这样做

kmeans<-kmeans()
kmeans$cluster should refer to the calculated clusters

每当用户更新提供的文本时，我应该改变些什么才能使功能正常工作？