fixed tests

Author: b-rodrigues

default.nix

@@ -1,5 +1,5 @@
 let
- pkgs = import (fetchTarball "https://github.com/rstats-on-nix/nixpkgs/archive/2025-11-10.tar.gz") {};
+ pkgs = import (fetchTarball "https://github.com/rstats-on-nix/nixpkgs/archive/2025-12-02.tar.gz") {};
 
   rpkgs = builtins.attrValues {
     inherit (pkgs.rPackages) 

tests/testthat/_snaps/rix_init/create_missing_Rprofile.txt

@@ -0,0 +1,54 @@
+### File generated by `rix::rix_init()` ###
+# 1. Currently, system RStudio does not inherit environmental variables
+#   defined in `$HOME/.zshrc`, `$HOME/.bashrc` and alike. This is workaround to
+#   make the path of the nix store and hence basic nix commands available
+#   in an RStudio session
+# 2. For nix-R session, remove `R_LIBS_USER`, system's R user library.`.
+#   This guarantees no user libraries from the system are loaded and only
+#   R packages in the Nix store are used. This makes Nix-R behave in pure manner
+#   at run-time.
+{
+    is_rstudio <- Sys.getenv("RSTUDIO") == "1"
+    is_nix_r <- nzchar(Sys.getenv("NIX_STORE"))
+    is_code <- Sys.getenv("TERM_PROGRAM") == "vscode"
+    is_positron <- Sys.getenv("POSITRON") == "1"
+    if (isFALSE(is_nix_r) && isTRUE(is_rstudio)) {
+        cat("{rix} detected RStudio R session")
+        old_path <- Sys.getenv("PATH")
+        nix_path <- "/nix/var/nix/profiles/default/bin"
+        has_nix_path <- any(grepl(nix_path, old_path))
+        if (isFALSE(has_nix_path)) {
+            Sys.setenv(PATH = paste(old_path, nix_path, sep = ":"))
+        }
+        rm(old_path, nix_path)
+    }
+    if (isTRUE(is_nix_r)) {
+        install.packages <- function(...) {
+            stop("You are currently in an R session running from Nix.\n", "Don't install packages using install.packages(),\nadd them to ", "the default.nix file instead.")
+        }
+        update.packages <- function(...) {
+            stop("You are currently in an R session running from Nix.\n", "Don't update packages using update.packages(),\n", "generate a new default.nix with a more recent version of R. ", "If you need bleeding edge packages, read the", "'Understanding the rPackages set release cycle and using ", "bleeding edge packages' vignette.")
+        }
+        remove.packages <- function(...) {
+            stop("You are currently in an R session running from Nix.\n", "Don't remove packages using `remove.packages()``,\ndelete them ", "from the default.nix file instead.")
+        }
+        current_paths <- .libPaths()
+        userlib_paths <- Sys.getenv("R_LIBS_USER")
+        user_dir <- grep(paste(userlib_paths, collapse = "|"), current_paths, fixed = TRUE)
+        new_paths <- current_paths[-user_dir]
+        .libPaths(new_paths)
+        rm(current_paths, userlib_paths, user_dir, new_paths)
+    }
+    if (isTRUE(is_code) && interactive() && isFALSE(is_rstudio) && isFALSE(is_positron)) {
+        vscode_r_init <- file.path(Sys.getenv(if (.Platform$OS.type == "windows") 
+            "USERPROFILE"
+        else "HOME"), ".vscode-R", "init.R")
+        if (file.exists(vscode_r_init)) {
+            source(vscode_r_init)
+        }
+        else {
+            message("No .vscode-R/init.R file found. If you want to use VSCode-R, you need to source it in your .Rprofile or start vscode from within nix-shell")
+        }
+    }
+    rm(is_rstudio, is_nix_r, is_code, is_positron)
+}

tests/testthat/test-rix_init.R

@@ -28,31 +28,6 @@ testthat::test_that("Snapshot test of rix_init(), overwrite", {
   )
 })
 
-
-testthat::test_that("Snapshot test of rix_init(), create_missing, no file", {
-  path_env_nix <- tempdir()
-
-  save_rix_init_test <- function(path_env_nix) {
-    rix_init(
-      project_path = path_env_nix,
-      rprofile_action = "create_missing",
-      message_type = "quiet"
-    )
-
-    paste0(path_env_nix, "/.Rprofile")
-  }
-
-  testthat::expect_snapshot_file(
-    path = save_rix_init_test(path_env_nix),
-    name = "golden_Rprofile.txt",
-  )
-
-  on.exit(
-    unlink(path_env_nix, recursive = TRUE, force = TRUE),
-    add = TRUE
-  )
-})
-
 testthat::test_that("Snapshot test of rix_init(), create_missing, empty file", {
   # Empty should be considered as missing
   # We're creating an empty .Rprofile by opening a file connection
@@ -77,7 +52,7 @@ testthat::test_that("Snapshot test of rix_init(), create_missing, empty file", {
 
   testthat::expect_snapshot_file(
     path = save_rix_init_test(path_env_nix),
-    name = "golden_Rprofile.txt",
+    name = "create_missing_Rprofile.txt",
   )
 
   on.exit(