wip add basic code [skip ci]

Author: eitsupi

src/r-dependent-packages/devcontainer-feature.json

@@ -14,6 +14,15 @@
 			],
 			"default": "auto",
 			"description": "Version of pak to install. By default, the stable version is installed if needed."
-		}
+		},
+		"additionalRepositories": {
+			"type": "string",
+			"default": "",
+			"description": "String passed to the `pak::repo_add()` function.",
+			"proposals": [
+				"",
+				"rhub = 'https://r-hub.r-universe.dev', jeroen = 'https://jeroen.r-universe.dev'"
+			]
+		},
 	}
 }

src/r-dependent-packages/install.sh

@@ -0,0 +1,55 @@
+#!/usr/bin/env bash
+
+PAK_VERSION=${PAKVERSION:-"auto"}
+ROOT=${ROOT:-"."}
+ADDITIONAL_REPOSITORIES=${ADDITIONALREPOSITORIES:-""}
+DEPENDENCIES=${DEPENDENCIES:-"all"}
+
+USERNAME=${USERNAME:-${_REMOTE_USER}}
+
+LIFECYCLE_SCRIPTS_DIR="/usr/local/share/rocker-devcontainer-features/r-dependent-packages/scripts"
+
+set -e
+
+if [ "$(id -u)" -ne 0 ]; then
+    echo -e 'Script must be run as root. Use sudo, su, or add "USER root" to your Dockerfile before running this script.'
+    exit 1
+fi
+
+check_r() {
+    if [ ! -x "$(command -v R)" ]; then
+        echo "(!) Cannot run R. Please install R before installing this Feature."
+        echo "    Skip installation..."
+        exit 0
+    fi
+}
+
+install_pak() {
+    local version=$1
+
+    if [ "${version}" = "auto" ]; then
+        if su "${USERNAME}" -c "R -s -e 'packageVersion(\"pak\")'" >/dev/null 2>&1; then
+            echo "pak is already installed. Skip pak installation..."
+            return
+        else
+            version="stable"
+        fi
+    fi
+
+    echo "Installing pak ${version}..."
+    # shellcheck disable=SC2016
+    su "${USERNAME}" -c 'R -q -e "install.packages(\"pak\", repos = sprintf(\"https://r-lib.github.io/p/pak/'"${version}"'/%s/%s/%s\", .Platform\$pkgType, R.Version()\$os, R.Version()\$arch))"'
+}
+
+export DEBIAN_FRONTEND=noninteractive
+
+# Set Lifecycle scripts
+mkdir -p "${LIFECYCLE_SCRIPTS_DIR}"
+sed \
+    -e "s|@ROOT@|${ROOT}|" \
+    -e "s|@REPOS@|${ADDITIONAL_REPOSITORIES}|" \
+    -e "s|@DEPS@|${DEPENDENCIES}|" \
+    lifecycle_script.sh >"${LIFECYCLE_SCRIPTS_DIR}/lifecycle_script.sh"
+
+check_r
+install_pak "${PAK_VERSION}"

src/r-dependent-packages/lifecycle_script.sh

@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+Rscript -e \
+    'pak::repo_add(@REPOS@);
+    pak::local_install_deps("@ROOT@", dependencies = trimws(unlist(strsplit("@DEPS@", ","))))'