Fixed package strip name (#278)

brnleehng · web-flow · commit f35e1e371ff0 · 2018-05-31T16:21:21.000-07:00
diff --git a/inst/startup/worker.R b/inst/startup/worker.R
@@ -93,7 +93,10 @@ for (package in azbatchenv$packages) {
 }
 
 for (package in azbatchenv$github) {
-  library(package, character.only = TRUE)
+  packageDirectory <- strsplit(package, "/")[[1]]
+  packageName <- packageDirectory[length(packageDirectory)]
+
+  library(packageName, character.only = TRUE)
 }
 
 for (package in azbatchenv$bioconductor) {

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,10 @@ for (package in azbatchenv$packages) {`
`93`	`93`	`}`
`94`	`94`
`95`	`95`	`for (package in azbatchenv$github) {`
`96`		`- library(package, character.only = TRUE)`
	`96`	`+ packageDirectory <- strsplit(package, "/")[[1]]`
	`97`	`+ packageName <- packageDirectory[length(packageDirectory)]`
	`98`	`+`
	`99`	`+ library(packageName, character.only = TRUE)`
`97`	`100`	`}`
`98`	`101`
`99`	`102`	`for (package in azbatchenv$bioconductor) {`