Skip to content
Snippets Groups Projects
Commit 0409e25a authored by Holger Brandl's avatar Holger Brandl
Browse files

deprecated require.auto in favor of require_auto

parent 20315f36
No related branches found
No related tags found
No related merge requests found
...@@ -21,7 +21,10 @@ options(gsubfn.engine = "R") ...@@ -21,7 +21,10 @@ options(gsubfn.engine = "R")
######################################################################################################################## ########################################################################################################################
## automatic package installation ## automatic package installation
require.auto <- function(x){ ## @Deprecated use require_auto instead
require.auto <- function(x) require_auto(x)
require_auto <- function(x){
x <- as.character(substitute(x)) x <- as.character(substitute(x))
if(isTRUE(x %in% .packages(all.available=TRUE))) { if(isTRUE(x %in% .packages(all.available=TRUE))) {
...@@ -36,7 +39,7 @@ require.auto <- function(x){ ...@@ -36,7 +39,7 @@ require.auto <- function(x){
} else { } else {
source("http://bioconductor.org/biocLite.R") source("http://bioconductor.org/biocLite.R")
# biocLite(character(), ask=FALSE) # update dependencies, if any. # biocLite(character(), ask=FALSE) # update dependencies, if any.
eval(parse(text=paste("biocLite('", x, "')", sep=""))) eval(parse(text=paste("biocLite('", x, "', ask=FALSE)", sep="")))
eval(parse(text=paste("require(", x, ", quietly=T)", sep=""))) eval(parse(text=paste("require(", x, ", quietly=T)", sep="")))
} }
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment