if (test_docker_installation()) {
set_default_config(create_docker_config(), permanent = FALSE)
# running a command
run("alpine", "echo", c("hello"))
# mounting a folder
folder <- tempdir()
write("i'm a mounted file", paste0(folder, "/file.txt"))
run("alpine", "cat", c("/mounted_folder/file.txt"), volumes = paste0(folder, "/:/mounted_folder"))
}
Run the code above in your browser using DataLab