R: install packages from DESCRIPTION file

docs/reference/options.md

@@ -34481,7 +34481,7 @@ boolean
 ` true `
 
 *Declared by:*
- - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r.nix](https://github.com/cachix/devenv/blob/main/src/modules/languages/r.nix)
+ - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r](https://github.com/cachix/devenv/blob/main/src/modules/languages/r)
 
 
 
@@ -34502,7 +34502,49 @@ package
 ` pkgs.R `
 
 *Declared by:*
- - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r.nix](https://github.com/cachix/devenv/blob/main/src/modules/languages/r.nix)
+ - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r](https://github.com/cachix/devenv/blob/main/src/modules/languages/r)
+
+
+
+## languages.r.descriptionFile.installPackages.enable
+
+
+
+Whether to enable installation of R packages listed in DESCRIPTION file.
+
+
+
+*Type:*
+boolean
+
+
+
+*Default:*
+` false `
+
+
+
+*Example:*
+` true `
+
+*Declared by:*
+ - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r](https://github.com/cachix/devenv/blob/main/src/modules/languages/r)
+
+
+
+## languages.r.descriptionFile.path
+
+
+
+Path to DESCRIPTION file
+
+
+
+*Type:*
+path in the Nix store
+
+*Declared by:*
+ - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r](https://github.com/cachix/devenv/blob/main/src/modules/languages/r)
 
 
 
@@ -34528,7 +34570,7 @@ boolean
 ` true `
 
 *Declared by:*
- - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r.nix](https://github.com/cachix/devenv/blob/main/src/modules/languages/r.nix)
+ - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r](https://github.com/cachix/devenv/blob/main/src/modules/languages/r)
 
 
 
@@ -34549,7 +34591,7 @@ package
 ` pkgs.radianWrapper `
 
 *Declared by:*
- - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r.nix](https://github.com/cachix/devenv/blob/main/src/modules/languages/r.nix)
+ - [https://github.com/cachix/devenv/blob/main/src/modules/languages/r](https://github.com/cachix/devenv/blob/main/src/modules/languages/r)
 
 
 

docs/supported-languages/r.md

@@ -3,80 +3,4 @@
 
 [comment]: # (Please add your documentation on top of this line)
 
-## languages\.r\.enable
 
-Whether to enable tools for R development\.
-
-
-
-*Type:*
-boolean
-
-
-
-*Default:*
-` false `
-
-
-
-*Example:*
-` true `
-
-
-
-## languages\.r\.package
-
-
-
-The R package to use\.
-
-
-
-*Type:*
-package
-
-
-
-*Default:*
-` pkgs.R `
-
-
-
-## languages\.r\.radian\.enable
-
-
-
-Whether to enable a 21 century R console\.
-
-
-
-*Type:*
-boolean
-
-
-
-*Default:*
-` false `
-
-
-
-*Example:*
-` true `
-
-
-
-## languages\.r\.radian\.package
-
-
-
-The radian package to use\.
-
-
-
-*Type:*
-package
-
-
-
-*Default:*
-` pkgs.radianWrapper `

examples/r/.test.sh

@@ -0,0 +1,9 @@
+#!/usr/bin/env bash
+set -ex
+
+R --version
+radian --version
+
+for package in readr stringr data.table yaml testthat; do
+  Rscript -e "library($package)"
+done

examples/r/DESCRIPTION

@@ -0,0 +1,14 @@
+Type: Package
+Package: myPackage
+Title: Devenv test R Package
+Version: 0.0.0.1
+Imports:
+  readr,
+  stringr,
+  nonexistentpackage
+Depends:
+  data.table,
+  yaml
+Suggests:
+  testthat (>= 3.0.0)
+Encoding: UTF-8

examples/r/devenv.nix

@@ -7,5 +7,9 @@
       enable = true;
       package = pkgs.python312Packages.radian;
     };
+    descriptionFile = {
+      path = "${./DESCRIPTION}";
+      installPackages.enable = true;
+    };
   };
 }

src/modules/languages/r.nix → src/modules/languages/r/default.nix

@@ -1,7 +1,11 @@
-{ pkgs, config, lib, ... }:
-
+{ pkgs
+, config
+, lib
+, ...
+}:
 let
   cfg = config.languages.r;
+  descriptionFile = import ./descriptionFile.nix;
 in
 {
   options.languages.r = {
@@ -21,9 +25,23 @@ in
         description = "The radian package to use.";
       };
     };
+    descriptionFile = {
+      path = lib.mkOption {
+        type = lib.types.pathInStore;
+        description = "Path to DESCRIPTION file";
+      };
+      installPackages = {
+        enable = lib.mkEnableOption "installation of R packages listed in DESCRIPTION file";
+      };
+    };
   };
 
   config = lib.mkIf cfg.enable {
-    packages = with pkgs; [ cfg.package ] ++ lib.lists.optional cfg.radian.enable cfg.radian.package;
+    packages =
+      [ cfg.package ]
+      ++ lib.lists.optional cfg.radian.enable cfg.radian.package
+      ++ lib.lists.optionals cfg.descriptionFile.installPackages.enable (
+        descriptionFile.getRPackages pkgs (builtins.readFile cfg.descriptionFile.path)
+      );
   };
 }

src/modules/languages/r/descriptionFile.nix

@@ -0,0 +1,42 @@
+let
+  strings = import ./utils/strings.nix;
+  inherit (builtins)
+    concatMap
+    filter
+    hasAttr
+    replaceStrings
+    warn
+    ;
+  inherit (strings)
+    matches
+    extractWithRegex
+    splitWithRegex
+    ;
+in
+rec {
+  getSection =
+    section: descriptionFile:
+    extractWithRegex ".*${section}:\n +([a-zA-Z0-9., (>=)\n]*)\n[A-Z].*" descriptionFile;
+  extractPackages = packages: filter (matches "^[a-zA-Z0-9.]+") packages;
+  extractSectionPackages = section: extractPackages (splitWithRegex "[\n, ]+" section);
+  descriptionPackages =
+    descriptionFile:
+    concatMap (section: extractSectionPackages (getSection section descriptionFile)) [
+      "Imports"
+      "Depends"
+      "Suggests"
+    ];
+  normalizePackageName = pkg: replaceStrings [ "." ] [ "_" ] pkg;
+  getRPackage =
+    pkg: pkgs:
+    let
+      pkgName = normalizePackageName pkg;
+    in
+    if hasAttr pkgName pkgs.rPackages then
+      pkgs.rPackages.${pkgName}
+    else
+      warn "Package \"${pkgName}\" does not exist in nixpkgs." null;
+  getRPackages =
+    pkgs: descriptionFile:
+    filter (pkg: pkg != null) (map (pkg: getRPackage pkg pkgs) (descriptionPackages descriptionFile));
+}

src/modules/languages/r/utils/strings.nix

@@ -0,0 +1,23 @@
+let
+  inherit (builtins)
+    filter
+    head
+    isNull
+    isString
+    match
+    split
+    ;
+in
+{
+  # matches :: string -> string -> bool
+  matches = pattern: text: !isNull (match "(${pattern})" text);
+  # extractWithRegex :: string -> string -> string
+  extractWithRegex =
+    regex: string:
+    let
+      matched = match regex string;
+    in
+    if isNull matched then "" else head matched;
+  # splitWithRegex :: string -> string -> [string]
+  splitWithRegex = regex: string: filter isString (split regex string);
+}