我目前正在一个使用factoextra包执行k意味着通过导入包含一些数据的excel文件进行聚类的项目。
我使用readxl包从excel中读取数据，如下所示：显示表格并绘制聚类图：
my_data <- read_excel(file.choose())`
Clusterdata <- scale(my_data)
kmean.res <- kmeans(Clusterdata, 5,iter.max = 10, nstart = 25)
fviz_cluster(kmean.res, data = my_data)
aggregate(my_data, by=list(cluster=kmean.res$cluster), mean)
我能够使用RMarkDown创建显示上述结果的HTML文件，但是当我想使用新的excel文件更新结果时，需要大量的人工才能重新编织HTML。
我了解您可以使用runtime：shiny及其相关功能来创建交互式RMarkDown HTML。
但是您是否有可能在HTML页面上单击按钮或单击超链接，这将弹出一个新窗口供您选择Excel文件，然后更新HTML页面中显示的结果？