add alpine support

r-lib · Sep 11, 2024 · 39803c9 · 39803c9
1 parent b9651b2
commit 39803c9
Show file tree

Hide file tree

Showing 2 changed files with 43 additions and 0 deletions.
diff --git a/R/sysreqs2.R b/R/sysreqs2.R
@@ -21,6 +21,7 @@ sysreqs2_cmds <- utils::read.table(
    'Fedora Linux'             linux   fedora       *         NA                  'dnf install -y'                    rpm
    'openSUSE Linux'           linux   opensuse     *         NA                  'zypper --non-interactive install'  rpm
    'SUSE Linux Enterprise'    linux   sle          *         NA                  'zypper --non-interactive install'  rpm
+   'Alpine Linux'             linux   alpine       *         NA                  'apk add --no-cache'                apk
 "))
 
 find_sysreqs_platform <- function(sysreqs_platform = NULL) {

diff --git a/R/system-packages.R b/R/system-packages.R
@@ -5,6 +5,8 @@ async_system_list_packages <- function(config = NULL) {
   pkgtool <- sysreqs2_command(sysreqs_platform, "query")
   if (pkgtool == "dpkg-query") {
     async_system_list_packages_dpkg_query(config)
+  } else if (pkgtool == "apk") {
+    async_system_list_packages_apk(config)
   } else {
     async_system_list_packages_rpm(config)
   }
@@ -124,3 +126,43 @@ parse_rpm_output <- function(lines) {
   pkgs <- pkgs[order(tolower(pkgs$package)), ]
   pkgs
 }
+
+# For APK, we need this query:
+
+async_system_list_packages_apk <- function(config) {
+  args <- c(
+    "list",
+    "-I"
+  )
+  stdout <- tempfile()
+  external_process(function(...) {
+    processx::process$new(
+                        "apk",
+                        stdout = stdout,
+                        stderr = stdout,
+                        args = args,
+                        ...
+                      )
+  })$
+    then(function(ret) {
+      parse_apk_output(strsplit(ret$stdout, "\n")[[1]])
+    })$
+    finally(function() unlink(stdout))
+}
+
+parse_apk_output <- function(lines) {
+
+  package = sub("-[0-9].*", "",  lines)
+  version = sub(".*?-([0-9][^ ]*).*", "\\1", lines)
+  provides = ""
+
+  pkgs <- data_frame(
+    status = "ii",
+    package = package,
+    version = version,
+    provides = provides
+  )
+
+  pkgs <- pkgs[order(tolower(pkgs$package)), ]
+  pkgs
+}