exists() only takes character first argument for R4.0 and earlier

shikokuchuo · Oct 8, 2024 · f68afca · f68afca
1 parent ac9c0b7
commit f68afca
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 4 deletions.
diff --git a/.github/workflows/check-standard.yaml b/.github/workflows/check-standard.yaml
@@ -21,6 +21,7 @@ jobs:
           - {os: ubuntu-latest, r: 'devel', http-user-agent: 'release'}
           - {os: ubuntu-latest, r: 'release'}
           - {os: ubuntu-latest, r: 'oldrel-1'}
+          - {os: ubuntu-latest, r: 'oldrel-4'}
           - {os: macOS-latest,  r: 'release'}
           - {os: windows-latest, r: 'release'}
 

diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: mirai
 Type: Package
 Title: Minimalist Async Evaluation Framework for R
-Version: 1.2.0.9030
+Version: 1.2.0.9031
 Description: Designed for simplicity, a 'mirai' evaluates an R expression
     asynchronously in a parallel process, locally or distributed over the
     network, with the result automatically available upon completion. Modern

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# mirai 1.2.0.9030 (development)
+# mirai 1.2.0.9031 (development)
 
 #### New Features
 

diff --git a/R/mirai.R b/R/mirai.R
@@ -172,7 +172,7 @@ mirai <- function(.expr, ..., .args = list(), .timeout = NULL, .compute = "defau
   }
   data <- list(
     ._mirai_globals_. = globals,
-    .expr = if (is.symbol(expr) && exists(expr, parent.frame()) && is.language(.expr)) .expr else expr
+    .expr = if (is.symbol(expr) && exists(as.character(expr), parent.frame()) && is.language(.expr)) .expr else expr
   )
   if (length(.args)) {
     if (is.environment(.args))
@@ -245,7 +245,7 @@ everywhere <- function(.expr, ..., .args = list(), .serial = NULL, .compute = "d
 
   expr <- substitute(.expr)
   .expr <- c(
-    as.expression(if (is.symbol(expr) && exists(expr, parent.frame()) && is.language(.expr)) .expr else expr),
+    as.expression(if (is.symbol(expr) && exists(as.character(expr), parent.frame()) && is.language(.expr)) .expr else expr),
     .snapshot
   )