Browse code

return version number

Veit Schwämmle authored on 11/11/2024 12:01:18
Showing 4 changed files

... ...
@@ -1,7 +1,7 @@
1 1
 Package: vsclust
2 2
 Type: Package
3 3
 Title: Feature-based variance-sensitive quantitative clustering
4
-Version: 1.1.2
4
+Version: 1.3.0
5 5
 Date: 2022-03-23
6 6
 Authors@R: 
7 7
     person(
... ...
@@ -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
 
125 124
deleted file mode 100644
126 125
Binary files a/inst/other/RDAVIDWebService_1.28.0.tar.gz and /dev/null differ
... ...
@@ -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
   }))