From a8fad47952a38e1f113f50eb60d4a1918b5ef971 Mon Sep 17 00:00:00 2001
From: schochastics <david@schochastics.net>
Date: Wed, 15 Feb 2023 14:58:48 +0100
Subject: [PATCH] adding readme to the output folder (#50)

---
 R/installation.R         | 15 ++++++++++++
 inst/readme_template.txt | 53 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 68 insertions(+)
 create mode 100644 inst/readme_template.txt

diff --git a/R/installation.R b/R/installation.R
index fde0993..1a981ad 100644
--- a/R/installation.R
+++ b/R/installation.R
@@ -249,6 +249,18 @@
     return(dockerfile_content)
 }
 
+.generate_docker_readme <- function(output_dir,image){
+  file.create(file.path(output_dir,"README"))
+  con <- file(file.path(output_dir,"README"), open="w")
+  readme <- readLines(system.file("readme_template.txt", package = "rang"))
+  readme <- gsub("__DATE__",Sys.Date(),readme)
+  readme <- gsub("__OUTPUT__",output_dir,readme)
+  readme <- gsub("__IMAGE__",image,readme)
+  writeLines(readme,file.path(output_dir,"README"))
+  close(con)
+  invisible(readme)
+}
+
 #' Export The Resolved Result As Installation Script
 #'
 #' This function exports the results from [resolve()] to an installation script that can be run in a fresh R environment.
@@ -404,6 +416,9 @@ dockerize <- function(rang, output_dir, materials_dir = NULL, image = c("r-ver",
         dockerfile_content <- .insert_materials_dir(dockerfile_content)
     }
     writeLines(dockerfile_content, file.path(output_dir, "Dockerfile"))
+    
+    .generate_docker_readme(output_dir = output_dir,image = image)
+    
     invisible(output_dir)
 }
 
diff --git a/inst/readme_template.txt b/inst/readme_template.txt
new file mode 100644
index 0000000..ea3bbfa
--- /dev/null
+++ b/inst/readme_template.txt
@@ -0,0 +1,53 @@
+This README offers some guidance on how to work with the included docker container 
+which was created with the R package rang on __DATE__
+
+# Installing docker
+
+The installation depends on the OS you are running
+Follow the steps outlined in the official docs: https://docs.docker.com/engine/install/
+For Windows, you can also check out https://learn.microsoft.com/en-us/virtualization/windowscontainers/quick-start/set-up-environment
+
+# Run the docker container
+Open a command prompt window (In Windows this could be the built-in command prompt, PowerShell, or Windows Terminal)
+navigate to output_dir in the command prompt: `cd __OUTPUT__`
+
+Note that all docker commands below might need sudo rights on Linux distros
+If you want to run docker without sudo, follow the steps outlined here: https://docs.docker.com/engine/install/linux-postinstall/#manage-docker-as-a-non-root-user
+
+The execution depends on what image you chose when dockerizing (image used here: __IMAGE__)
+
+## image!="rstudio"
+docker build -t rang .
+docker run --rm --name "rangtest" -ti rang
+
+You can change the --name paramater to something more suitable for your container
+An R command prompt should open. To confirm that you have succesfully gone back in time, 
+use the `sessionInfo()` command 
+
+## image = "rstudio"
+docker build -t rang .
+docker run -p 8787:8787 -e PASSWORD=abc123 --rm --name "rangtest" -ti rang
+
+You can change the --name paramater to something more suitable for your container
+when the building is finished, open a browser and go to localhost:8787
+The default username is rstudio, password as specified above (in this case abc123).
+To confirm that you have succesfully gone back in time, 
+use the `sessionInfo()` command  
+
+## Need more information about rang?
+Check the vignette included in the package
+
+## Need more information about docker?
+
+- Consult the docker documentation: https://docs.docker.com/get-started/
+- Consult this docker tutorial: https://docker-curriculum.com/ 
+- Using Windows? Checkout Microsofts documentation: https://learn.microsoft.com/en-us/virtualization/windowscontainers/
+
+## Issues?
+
+If you are unable to run this docker container please file an issue at https://github.com/chainsawriot/rang/issues
+containing the following information:
+
+- The `resolve()` command you executed in R
+- The `dockerize()` command you executed in R 
+- The error message shown in your command prompt