From ddfbb27a54a83077c3394f032bbbfe5c11b7ccbc Mon Sep 17 00:00:00 2001 From: Danielle Callan Date: Wed, 29 Nov 2023 22:22:56 -0500 Subject: [PATCH] remove unneeded print statements --- R/server.R | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/R/server.R b/R/server.R index ebaf722..828ef79 100644 --- a/R/server.R +++ b/R/server.R @@ -41,13 +41,11 @@ server <- function(input, output, session) { lastData1ColIndex <- length(data1) firstData2ColIndex <- length(data1) + 1 corrResult <- Hmisc::rcorr(as.matrix(data1), as.matrix(data2)) - print(corrResult) + # this bc Hmisc::rcorr cbinds the two data.tables and runs the correlation # so we need to extract only the relevant values pValuesMatrix$p_values <- corrResult$P[1:lastData1ColIndex, firstData2ColIndex:length(colnames(corrResult$P))] - print(pValuesMatrix$p_values) correlationMatrix$corr_matrix <- corrResult$r[1:lastData1ColIndex, firstData2ColIndex:length(colnames(corrResult$r))] - print(correlationMatrix$corr_matrix) }, error = function(e) { shiny::showNotification(paste('Error:', e$message), type = 'error') })