计算闪亮K均值聚类的距离测度

Question

我正在研究Shiny中的K-means聚类。我成功完成了集群并在仪表板上生成了输出。但是，我需要每个群集中每个节点的距离度量，并且必须在每个群集中对度量进行排序。我无法使用闪亮的反应性数据集来完成此操作。

我试图在R Studio中获得距离测量。但是无法通过闪亮的服务器获取该信息。

#Run K-means clustering algorithm on reactive data set.
set.seed(678)
db.data.km <- reactive({kmeans(scale(db.data.num()), 
input$No_Of_Clusters, nstart=25)})

#get the clusters 
cluster_group<- reactive({
cluster <- db.data.km()$cluster
 })

#get the centers
center_group<- reactive({
cent <- db.data.km()$centers
})

#Calculate Euclidean distance.
Euclid <- reactive({
points1 <- cluster_group()
points2 <- center_group()
distance <- matrix(NA, nrow=dim(points1())[1], ncol=dim(points2())[1])
for(i in 1:nrow(points2())) {
distance[,i] <- sqrt(rowSums(t(t(points1())-points2()[i,])^2))
}
distance
})

我需要反应数据集上每一行的距离测量。