Created by
Karel Fišer
| ## Source functions file from bitbucket private repo
source_bitbucket <- function(bbucket_file = "https://bitbucket.org/karel_fiser/rnamps/raw/master/R/functions.R", key = "karel_fiser", pss = NULL) {
# https://bitbucket.org/karel_fiser/methmps/raw/master/R/eRRBS_functions.R
# https://bitbucket.org/karel_fiser/flow_analysis/raw/master/R/flow_functions_kf.R
# https://bitbucket.org/karel_fiser/flow_analysis/raw/master/R/TomsLike_logicle_TS3.R
require(httr)
if(is.null(bbucket_file)) {
bbucket_file <- readline(prompt="url to raw file on bitbucket: ")
}
if(is.null(key)) {
key <- readline(prompt="login: ")
}
if(is.null(pss)) {
pss <- readline(prompt="password: ")
}
funs <- GET(bbucket_file, authenticate(key, pss))
eval(parse(text = content(funs)), envir=.GlobalEnv)
}
|