## 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)  
}