| ... | ... |
@@ -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) |
