From 8e92d86ec88269eccb822a81f431b9412015154f Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Fri, 4 Feb 2022 14:57:00 +0100
Subject: [PATCH] Corregir error: pvalues como numeric y no character.

---
 R/ggcorrplot.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/ggcorrplot.R b/R/ggcorrplot.R
index a1642eb..b97d9ec 100644
--- a/R/ggcorrplot.R
+++ b/R/ggcorrplot.R
@@ -9,7 +9,7 @@ ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif"){
     gather(Var2, Value, -Var1)
 
   if (stat=="signif"){
-    df.pval$Value<-gtools::stars.pval(df.pval$Value)
+    df.pval$Value<-gtools::stars.pval(as.numeric(df.pval$Value))
   }
 
   order<- mcor %>% as.data.frame() %>% add_column(Var1=rownames(mcor),.before=1) %>% clustsort