From 53032850aacee7e5949c7885ef8c40236bf6ebf5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 11 Dec 2024 13:20:56 +0100
Subject: [PATCH] Fix snapshot test on Windows

Windows path delimiter mismatch.
---
 tests/testthat/helper-apps.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/testthat/helper-apps.R b/tests/testthat/helper-apps.R
index e0c847f4..f00dfc33 100644
--- a/tests/testthat/helper-apps.R
+++ b/tests/testthat/helper-apps.R
@@ -613,6 +613,7 @@ transform_tempdir <- function(x) {
     "<tempdir>", x,
     fixed = TRUE
   )
+  x <- sub("\\R\\", "/R/", x, fixed = TRUE)
   x <- sub("[\\\\/]file[a-zA-Z0-9]+", "/<tempfile>", x)
   x <- sub("[A-Z]:.*Rtmp[a-zA-Z0-9]+[\\\\/]", "<tempdir>/", x)
   x