# #——安装,eval = FALSE ---------------------------------------------------- # 如果(!需要(“BiocManager”))# install.packages (BiocManager) # BiocManager::安装(“BiocDockerManager ") ## ---- 负载,呼应= TRUE,消息= FALSE ----------------------------------------- 库(BiocDockerManager)库(dplyr) # #——do_it -------------------------------------------------------------------- . is_docker_installed < -函数(){< - suppressWarnings(系统代码(“码头工人——版本”,忽视。stderr = TRUE，忽略。do_it = BiocDockerManager:::.is_docker_installed() ## ----available1，eval = TRUE ---------------------------------------------------- res < - BiocDockerManager:可用()res ## ----------------------------------------------------------------------------- res % > %选择(图片、描述标签)% > % bioconductor_docker过滤器(图片= =” ") ## ---- available2 --------------------------------------------------------------- 它< - BiocDockerManager:可用(模式=“bioconductor_docker”)它% > %选择(图片、描述标签)# #——弃用,eval = TRUE -------------------------------------------------- BiocDockerManager:可用(弃用= TRUE) % > %选择(图片、描述)# #——帮助,eval = TRUE -------------------------------------------------------- 如果(do_it) {BiocDockerManager:帮助 () } ## ---- 拉,eval = TRUE -------------------------------------------------------- 如果(do_it) {BiocDockerManager::安装(库=“bioconductor / bioconductor_docker”标签= "最新 " ) } ## ---- 安装,eval = TRUE --------------------------------------------------- 如果do_it BiocDockerManager::安装 () ## ---- filter-installed,eval = TRUE -------------------------------------------- 如果do_it BiocDockerManager:: = " bioconductor / bioconductor_docker安装(存储库 " ) ## ---- label-maintainer,eval = TRUE -------------------------------------------- 如果(do_it){# #获取“最新”标签的版本bioconductor图BiocDockerManager::维护者(库=“bioconductor / bioconductor_docker”标签=“最新”)# # BiocDockerManager作品一样的上述功能::维护者(标签=“最新 ") } ## ---- label-version,eval = TRUE ----------------------------------------------- 如果(do_it) {BiocDockerManager:版本(标签库=“bioconductor / bioconductor_docker”=“最新”)# #得到图像版本BiocDockerManager::版本(标签=“最新”)BiocDockerManager::版本(标签=“重击”)BiocDockerManager::版本(标签= " RELEASE_3_10 ") } ## ---- 有效的, eval = TRUE------------------------------------------------------- if(do_it) { BiocDockerManager::valid( repository = "bioconductor/bioconductor_docker", tag = "latest" ) } ## ----template, eval = FALSE--------------------------------------------------- # BiocDockerManager::use_dockerfile() ## ----workflow-1, eval = TRUE-------------------------------------------------- if (do_it) { ## 1. Check available images BiocDockerManager::available() ## 2. Install a new image BiocDockerManager::install( repository = "bioconductor/bioconductor_docker", tag = "devel" ) } ## ----workflow-2, eval = TRUE-------------------------------------------------- if (do_it) { ## 3. Check if image is valid BiocDockerManager::valid( "bioconductor/bioconductor_docker", tag = "devel" ) ## 4. Download update to image BiocDockerManager::install( "bioconductor/bioconductor_docker", tag = "devel" ) ## 5. Check version BiocDockerManager::version( "bioconductor/bioconductor_docker", tag = "devel" ) } ## ----sessionInfo-------------------------------------------------------------- sessionInfo()