Set the minimum version of the {pak} package to 0.6.0.

Parameterize the sysreqs_platform used to find system dependencies in pkg_sysreqs

Author: VincentGuyader

DESCRIPTION

@@ -25,7 +25,7 @@ Imports:
     glue (>= 1.4.2),
     jsonlite (>= 1.7.2),
     memoise,
-    pak (>= 0.2.0),
+    pak (>= 0.6.0),
     pkgbuild (>= 1.2.0),
     purrr,
     R6 (>= 2.5.0),

NEWS.md

@@ -4,6 +4,9 @@
 - move from `pak::pkg_system_requirements` to `pak::pkg_sysreqs()` thanks to @B0ydT 
 - `dock_from_renv` allow to specify user to use in Dockerfile
 - the `dependencies` parameter in `dock_from_renv` if set to `TRUE` will install required dependencies plus optional and development dependencies. defaut is `NA` only required (hard) dependencies,
+- Set the minimum version of the {pak} package to 0.6.0. 
+- Parameterize the `sysreqs_platform` used to find system dependencies in pkg_sysreqs
+
 
 # dockerfiler 0.2.2
 

R/dock_from_renv.R

@@ -31,6 +31,7 @@ pkg_sysreqs_mem <- memoise::memoise(
 #'     dependencies,
 #'   - `FALSE`: do not install any dependencies. (You might end up with a
 #'     non-working package, and/or the installation might fail.)
+#' @param sysreqs_platform System requirements platform.`ubuntu` by default. If `NULL`, then the  current platform is used. Can be : "ubuntu-22.04", or "rhel-9" if needed to fit with the `FROM` Operating System.
 #' @importFrom utils getFromNamespace
 #' @return A R6 object of class `Dockerfile`.
 #' @details
@@ -67,6 +68,7 @@ dock_from_renv <- function(
   use_pak = FALSE,
   user = NULL,
   dependencies = NA,
+  sysreqs_platform = "ubuntu",
   renv_version
 ) {
   try(dockerfiler::renv$initialize(),silent=TRUE)
@@ -100,12 +102,7 @@ dock_from_renv <- function(
           )
 
 
-  # ici il faut connaire l'image utilisé par l'image.
-  
-
-  # distro_args <- list(sysreqs_platform = "ubuntu-22.04")
-  
-  distro_args <- list(sysreqs_platform = "ubuntu")
+  distro_args <- list(sysreqs_platform = sysreqs_platform)
 
   install_cmd <- "apt-get install -y"
   update_cmd <-"apt-get update -y"

dev/flat_dock_from_renv.Rmd

@@ -75,6 +75,7 @@ pkg_sysreqs_mem <- memoise::memoise(
 #'     dependencies,
 #'   - `FALSE`: do not install any dependencies. (You might end up with a
 #'     non-working package, and/or the installation might fail.)
+#' @param sysreqs_platform System requirements platform.`ubuntu` by default. If `NULL`, then the  current platform is used. Can be : "ubuntu-22.04", or "rhel-9" if needed to fit with the `FROM` Operating System.
 #' @importFrom utils getFromNamespace
 #' @return A R6 object of class `Dockerfile`.
 #' @details
@@ -106,6 +107,7 @@ dock_from_renv <- function(
   use_pak = FALSE,
   user = NULL,
   dependencies = NA,
+  sysreqs_platform = "ubuntu",
   renv_version
 ) {
   try(dockerfiler::renv$initialize(),silent=TRUE)
@@ -139,12 +141,7 @@ dock_from_renv <- function(
           )
   
   
-  # ici il faut connaire l'image utilisé par l'image.
-  
-
-  # distro_args <- list(sysreqs_platform = "ubuntu-22.04")
-  
-  distro_args <- list(sysreqs_platform = "ubuntu")
+  distro_args <- list(sysreqs_platform = sysreqs_platform)
 
   install_cmd <- "apt-get install -y"
   update_cmd <-"apt-get update -y"