rbbt-marq 1.0.5 → 1.0.6

data/R/GEO.R

@@ -1,6 +1,37 @@
 library(Biobase);
 library(GEOquery);
 
+
+GEO.path <- function(dataset, datadir = NULL){
+    if (is.null(datadir) && exists('MARQ.config')){
+       datadir= paste(MARQ.config$datadir, 'GEO', sep="/");
+    }
+
+    if (is.null(datadir)){
+        print("No datadir specified and no default found (MARQ.config$datadir");
+        exit(-1);
+    }
+    
+
+    files = Sys.glob(paste(datadir,'*', '*', paste(dataset, 'orders', sep="."), sep="/"));
+    
+    if (length(files) == 0){
+        return(NULL);
+    }
+    else{
+        return(files[1]);
+    }
+}
+
+GEO.platform <- function(dataset, datadir = NULL){
+
+    path = GEO.path(dataset, datadir);
+
+    if (is.null(path)){ return(NULL);}
+
+    return(sub(".*(GPL\\d+).*","\\1", path, perl = TRUE));
+}
+
 GEO.values <- function(data){
     values <- MA.process(data$m, data$conditions, data$two.channel)
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: rbbt-marq
 version: !ruby/object:Gem::Version 
-  version: 1.0.5
+  version: 1.0.6
 platform: ruby
 authors: 
 - Miguel Vazquez