From fc5fe45b3024b9a4dd6a7ca1645b9573c2ac4e2e Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Tue, 18 Jun 2024 12:05:34 -0400
Subject: [PATCH] Avoid base64 functions in nanonext

---
 tests/testthat/test-crew_controller_local.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-crew_controller_local.R b/tests/testthat/test-crew_controller_local.R
index d487e7ff..f92d689a 100644
--- a/tests/testthat/test-crew_controller_local.R
+++ b/tests/testthat/test-crew_controller_local.R
@@ -115,13 +115,13 @@ crew_test("crew_controller_local()", {
     expect_false(exists(x = ".crew_y", envir = globalenv()))
     # package task
     x$push(
-      command = base64enc(arg),
+      command = paste0(arg, "y"),
       data = list(arg = "x"),
       packages = "nanonext"
     )
     x$wait(seconds_timeout = 5)
     out <- x$pop()
-    expect_equal(out$result[[1]], nanonext::base64enc("x"))
+    expect_equal(out$result[[1]], "xy")
   }
   # terminate
   handle <- x$launcher$workers$handle[[1]]