## ----包括=假------------------------------------------------图书馆（生物陶瓷）knitr :: Opts_chunk $ set（eval = true）## ------------------------------------------------------------------------------------ Runif Runif（10）## ---------------------------------------------------------------------------------'用法：runif.r [ - = - min = --max = --seed = ]选项：--n = 观察数。如果长度（n）> 1，则长度被视为所需的数量[默认值：1]。- min = 分布的下限。必须有限[默认值：0]。--max = 分布的上限。必须有限[默认值：1]。--seed = set set.seed（）函数[默认值：1]'' - > doc库（docopt）## ---------------------------------------------------------------------odopt（doc）＃没有argumetns提供了docopt（doc，“ - n --n 10 - min = 3 --max = 5”）## -----------------------------------------------------------------< - docopt（doc）set.seed（opts $种子）runif（n = as.integer（opts $ n），min = as.numeric（选择$ min），max = as.numeric（opts $ max））＃＃---- eval =假--------------------------------------------------＃！/ / usr / bin / rscript＃'用法：runif.r [ - = - min = --max = --seed = ] ##选项：＃--n = 观察数。如果长度（n）> 1，则长度被视为所需的数量[默认值：1]。＃ - min = 分布的下限。必须有限[默认值：0]。＃--max = 分布的上限。必须有限[默认值：1]。＃--seed =. SEED for set.seed（）函数[默认值：1]'' - > doc＃＃library（docopt）＃opts < - docopt（doc）＃set.seed（opts $种子）＃runif（n = as.integer（opts$ n），＃min = as.numeric（opts $ min），#max = as.numeric（opts $ max））## ---- eval = true，评论=''---------------------------------------- FL < - system.file（“docker / sevicbridges / src”，“runif2spin.r”，package =“sevicbridges”）cat（Readlines（fl），sep ='\ n'）## ------------------------------------------------------------------------------------ 库（七架）库（ReadR）FD < - filedef（name =“runif.r”，content = read_file（fl））RBX < - 工具（ID =“Runif”，Label =“Runif”，提示=要求（Docker（Pull =“Rocker / R基本”），CPU（1），MEM（2000）），要求=要求（FD），BaseCommand =“rscript runif.r”，stdout =“output.txt”，输入=列表（输入（ID =“编号”，键入=“整数”，位置= 1），输入（ID =“min”，键入=“float”，位置= 2），输入（id =“max”，type =“浮动”，位置= 3）），输出=输出（ID =“随机”，Glob =“Output.txt”））## ---- eval = true，评论=''--------------------------------------- fl < - system.file（“docker / sevicbridges / src”，“runif_args.r”，package =“seviobridges”）cat（Readlines（fl），sep ='\ n'）## -------------------------------------------------------------------------------------图书馆（READR）FD < - filedef（name =“runif.r”，content = read_file（fl））RBX < - 工具（ID=“runif”，label =“runif”，提示=要求（Docker（Pull =“Rocker / R基本”），CPU（1），MEM（2000）），要求=要求（FD），BaseCommand =“RSciptrunif.r“，stdout =”output.txt“，输入= list（输入（id =”编号“，type =”整数“，单独= false，prefix =”--n =“），输入（id =”min“，type =”float“，单独= false，prefix =”--min =“），输入（id =”max“，type =”float“，单独= false，prefix =”--max =“）），输出=输出（ID =“随机”，glob =“output.txt”））## ---- eval = true，注释=''------------------------------------------- system.file（“docker / sevelbridges / src”，“runif_args.r”，包=“sevenbridges”）猫（重新adLines(fl), sep = '\n') ## ------------------------------------------------------------------------ library(readr) fd <- fileDef(name = "runif.R", content = read_file(fl)) rbx <- Tool(id = "runif", label = "runif", hints = requirements(docker(pull = "rocker/hadleyverse"), cpu(1), mem(2000)), requirements = requirements(fd), baseCommand = "Rscript -e \"rmarkdown::render(knitr::spin('runif.R', FALSE))\" --args", stdout = "output.txt", inputs = list(input(id = "number", type = "integer", separate = FALSE, prefix = "--n="), input(id = "min", type = "float", separate = FALSE, prefix = "--min="), input(id = "max", type = "float", separate = FALSE, prefix = "--max=")), outputs = list(output(id = "stdout", type = "file", glob = "output.txt"), output(id = "random", type = "file", glob = "*.csv"), output(id = "report", type = "file", glob = "*.html"))) ## ---- eval = TRUE-------------------------------------------------------- fl <- system.file("docker/sevenbridges/src/", "runif.R", package = "sevenbridges") ## ---- comment='', eval = TRUE, echo = FALSE------------------------------ cat(readLines(fl), sep = '\n') ## ---- comment='', eval = TRUE, echo = FALSE------------------------------ fl <- system.file("docker/sevenbridges/report/", "report.Rmd", package = "sevenbridges") cat(readLines(fl), sep = '\n')