|
...
|
...
|
@@ -376,8 +376,9 @@ shinyServer(function(input, output,clientData,session) {
|
|
376
|
376
|
# make table in right format
|
|
377
|
377
|
print("Sending data back")
|
|
378
|
378
|
if (!is.null(v$results)) {
|
|
|
379
|
+ version <- installed.packages()["vsclust","Version"]
|
|
379
|
380
|
outdata <- as.data.frame(as.matrix(v$results))
|
|
380
|
|
- BackMessage <- toJSON(list(expr_matrix=as.list(outdata)))
|
|
|
381
|
+ BackMessage <- toJSON(list(expr_matrix=as.list(outdata), version = version))
|
|
381
|
382
|
js$send_results(dat=BackMessage)
|
|
382
|
383
|
}
|
|
383
|
384
|
}))
|
