Solve correlation table bug with non numeric data

Rfunctions/VisuPlot.R

@@ -400,8 +400,9 @@ Plot_Visu_Scatterplot<- function(input,resDiff,export=FALSE,lmEst = FALSE,CorEst
     numInd=which(typesTarget[2:ncol(target)])
     if(any(numInd)) data = cbind(target[,numInd],log2(t(counts)+1),div)
     if(!any(numInd)) data = cbind(log2(t(counts)+1),div)
-    
-    cor.est = round(cor(as.matrix(data),method = input$CorMeth),3)
+    typesdata = sapply(data,is.numeric)
+    cor.est = round(cor(data[,typesdata],method = input$CorMeth),3)
+    #cor.est = round(cor(data[,numInd],method = input$CorMeth),3)
     #cor.pvalue = cor.test(data,method = input$CorMeth)
     return(list(cor.est=cor.est))
   }