Better sha256 documentation

Author: Stephen Holsenbeck

R/dock_from_desc.R

@@ -36,7 +36,7 @@ base_pkg_ <- c(
 #' @param FROM The FROM of the Dockerfile. Default is
 #'     FROM rocker/r-ver:`R.Version()$major`.`R.Version()$minor`.
 #' @param AS The AS of the Dockerfile. Default it NULL.
-#' @param sha256 character. The Digest SHA256 hash corresponding to the chip architecture of the deployment host machine if different than the machine on which the image will be built.
+#' @param sha256 character. The Digest SHA256 hash corresponding to the chip architecture of the deployment host machine. This will need to be set in instances where the machine on which the image is built is different than the machine on which the image will be hosted/deployed. This is a convenience for setting `FROM = rocker/rver@sha256:xxxx`
 #' @param sysreqs boolean. If TRUE, the Dockerfile will contain sysreq installation.
 #' @param use_suggests boolean. If TRUE (the default), include dependencies listed in Suggests field in DESCRIPTION.
 #' @param repos character. The URL(s) of the repositories to use for `options("repos")`.

R/dock_from_renv.R

@@ -13,6 +13,7 @@ available_distros <- c(
 #' @param FROM Docker image to start FROM Default is
 #'     FROM rocker/r-base
 #' @param AS The AS of the Dockerfile. Default it NULL.
+#' @param sha256 character. The Digest SHA256 hash corresponding to the chip architecture of the deployment host machine. This will need to be set in instances where the machine on which the image is built is different than the machine on which the image will be hosted/deployed. This is a convenience for setting `FROM = rocker/rver@sha256:xxxx`
 #' @param distro One of "focal", "bionic", "xenial", "centos7",
 #'     or "centos8". See available distributions
 #'     at https://hub.docker.com/r/rstudio/r-base/.
@@ -48,6 +49,7 @@ dock_from_renv <- function(
   lockfile = "renv.lock",
   distro = "focal",
   FROM = "rocker/r-base",
+  sha256 = NULL,
   AS = NULL,
   sysreqs = TRUE,
   repos = c(CRAN = "https://cran.rstudio.com/"),
@@ -61,6 +63,9 @@ dock_from_renv <- function(
   # lock$repos(CRAN = repos)
   lockfile <- basename(lockfile)
 
+  # Add SHA for Architecture
+  if (!is.null(sha256))
+    FROM <- paste0(FROM, "@sha256:", sha256)
   # start the dockerfile
   R_major_minor <- lock$data()$R$Version
   dock <- Dockerfile$new(