Update server.R

fix clustering plot
CeMOS-Mannheim · Jul 2, 2024 · 094613b · 094613b
1 parent 60dbbf1
commit 094613b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/components/server.R b/components/server.R
@@ -297,8 +297,9 @@ server <- function(input, output, session) {
   output$clustPlot <- renderPlotly({
     if (appData$show_plot & !is.null(appData$clust)) {
       show_spinner()
-      plotClusters(appData$clust, k = input$num_cluster)
+      p <- plotClusters(appData$clust, k = input$num_cluster)
       hide_spinner()
+      return(p)
     }
   })