From 64bbccffee30ae9e0804ba5ee68484f3b152baf4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Xavier=20Escrib=C3=A0=20Montagut?= Date: Wed, 19 Apr 2023 14:28:23 +0200 Subject: [PATCH] fix: select correct rows --- components/board.correlation/R/correlation_plot_table_corr.R | 1 + 1 file changed, 1 insertion(+) diff --git a/components/board.correlation/R/correlation_plot_table_corr.R b/components/board.correlation/R/correlation_plot_table_corr.R index 88d4f0153..71bf0f90f 100644 --- a/components/board.correlation/R/correlation_plot_table_corr.R +++ b/components/board.correlation/R/correlation_plot_table_corr.R @@ -114,6 +114,7 @@ correlation_plot_table_corr_server <- function(id, sel <- 1:pcor_ntop shiny::req(sel) + if(length(sel) > nrow(R)) sel <- 1:nrow(R) rho <- R[sel, "cor"] if (length(sel) == 1) names(rho) <- rownames(R)[sel]