add "local" to setGemmaPath

oganm · oganm · commit 04ae78a716a3 · 2026-03-04T15:57:31.000-08:00
diff --git a/R/body.R b/R/body.R
@@ -17,6 +17,8 @@ setGemmaPath <- function(path){
         path <- "https://gemma.msl.ubc.ca/rest/v2/"
     } else if(path == 'staging'){
         path <- "https://staging-gemma.msl.ubc.ca/rest/v2/"
+    } else if(path == "local"){
+        path <- "http://localhost:8080/rest/v2/"
     }
     options(gemma.API = path)
     gemmaPath()

Original file line number	Diff line number	Diff line change
`@@ -17,6 +17,8 @@ setGemmaPath <- function(path){`
`17`	`17`	`path <- "https://gemma.msl.ubc.ca/rest/v2/"`
`18`	`18`	`} else if(path == 'staging'){`
`19`	`19`	`path <- "https://staging-gemma.msl.ubc.ca/rest/v2/"`
	`20`	`+ } else if(path == "local"){`
	`21`	`+ path <- "http://localhost:8080/rest/v2/"`
`20`	`22`	`}`
`21`	`23`	`options(gemma.API = path)`
`22`	`24`	`gemmaPath()`