Start multiple Selenium or Rstudio containers in script

Rstudio_start.R

#!/usr/bin/env Rscript
args = commandArgs(trailingOnly=TRUE)
library(purrr)

if (length(args)==0) {
  stop("At least one argument must be supplied", call.=FALSE)
}

num_containers <- args[1]

if (length(args) > 1) {
  user <- args[2]
  pass <- args[3]
} else {
  user <- "training"
  pass <- "workshop"
}

cat("Number of Rstudio Docker containers starting up ->", num_containers, "\n")

rstudio_start <- possibly(function(x) {
  rstudio <- 7000 + x
  docker <- gsub("\n","", paste0("docker run --name rstudio",x,"
 -v /dev/shm:/dev/shm -v /$(pwd):/home/rstudio/material -d -p ",rstudio,":8787 
-e USER=",user," -e PASSWORD=",pass," rocker/tidyverse:latest", collapse = " "))
  system(docker)
}, NULL)

for(i in 1:num_containers){
  cat("Starting up container", i, "now\n")
  x <- rstudio_start(i)
  if(x == 0){
    cat("Success!\n")
  } else {
    cat("Failed...\n")
  }
}

selenium_start.R

#!/usr/bin/env Rscript
args = commandArgs(trailingOnly=TRUE)
library(purrr)

if (length(args)==0) {
  stop("At least one argument must be supplied", call.=FALSE)
}

num_containers <- args[1]

cat("Number of Selenium Docker containers starting up ->", num_containers, "\n")

sel_start <- possibly(function(x) {
  selenium <- 4444 + x
  vnc <- 5900 + x
  docker <- gsub("\n","", paste0("docker run --name chrome",x,"
 -v /dev/shm:/dev/shm -d -p ",selenium,":4444 
 -p ",vnc,":5900 selenium/standalone-chrome-debug:latest", collapse = " "))
  system(docker)
}, NULL)

for(i in 1:num_containers){
  cat("Starting up container", i, "now\n")
  x <- sel_start(i)
  if(x == 0){
    cat("Success!\n")
  } else {
    cat("Failed...\n")
  }
}