Browse code

fixed bugs in new plot3

pablo-rodr-bio2 authored on 12/06/2020 09:53:05
Showing1 changed files

... ...
@@ -150,7 +150,7 @@ gsva_validation <- function(input, output, session) {
150 150
   if(success==TRUE)
151 151
   {
152 152
     gsva_generation(input, output, session, newY, genes,varMaxsz)
153
-    gsva_information(input,output,session)
153
+    gsva_information(input,output,session, newY, genes)
154 154
   }
155 155
 }
156 156
 
... ...
@@ -186,7 +186,7 @@ gsva_generation <- function(input, output, session, newY, genes,varMaxsz) {
186 186
 
187 187
 }
188 188
 
189
-gsva_information <- function(input, output, session) {
189
+gsva_information <- function(input, output, session, newY, genes) {
190 190
   gsva_es <- NA
191 191
   if("matrix" %in% class(generated_gsva))
192 192
     gsva_es <- as.data.frame(generated_gsva)