... | ... |
@@ -118,7 +118,6 @@ if(protnames) { |
118 | 118 |
#dat <- dat[,rep(0:(NumCond-1),NumReps)*NumReps+rep(1:(NumReps), each=NumCond)] |
119 | 119 |
|
120 | 120 |
|
121 |
- |
|
122 | 121 |
#### running statistical analysis and estimation of individual variances |
123 | 122 |
statOut <- PrepareForVSClust(dat, NumReps, NumCond, isPaired, isStat) |
124 | 123 |
|
... | ... |
@@ -375,8 +375,9 @@ shinyServer(function(input, output,clientData,session) { |
375 | 375 |
# make table in right format |
376 | 376 |
print("Sending data back") |
377 | 377 |
if (!is.null(v$results)) { |
378 |
+ version <- installed.packages()["vsclust","Version"] |
|
378 | 379 |
outdata <- as.data.frame(as.matrix(v$results)) |
379 |
- BackMessage <- toJSON(list(expr_matrix=as.list(outdata))) |
|
380 |
+ BackMessage <- toJSON(list(expr_matrix=as.list(outdata), version = version)) |
|
380 | 381 |
js$send_results(dat=BackMessage) |
381 | 382 |
} |
382 | 383 |
})) |