simplify

shikokuchuo · shikokuchuo · commit b870e11b621f · 2024-11-15T08:51:26.000Z
diff --git a/R/mirai-package.R b/R/mirai-package.R
@@ -114,4 +114,3 @@
 .intmax <- .Machine[["integer.max"]]
 .limit_short <- 5000L
 .limit_long <- 10000L
-.symbol <- if (getRversion() > "4.0") identity else as.character
diff --git a/R/mirai.R b/R/mirai.R
@@ -244,7 +244,7 @@ everywhere <- function(.expr, ..., .args = list(), .serial = NULL, .compute = "d
 
   expr <- substitute(.expr)
   .expr <- c(
-    as.expression(if (is.symbol(expr) && exists(.symbol(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
   )
 

Original file line number	Diff line number	Diff line change
`@@ -244,7 +244,7 @@ everywhere <- function(.expr, ..., .args = list(), .serial = NULL, .compute = "d`
`244`	`244`
`245`	`245`	`expr <- substitute(.expr)`
`246`	`246`	`.expr <- c(`
`247`		`- as.expression(if (is.symbol(expr) && exists(.symbol(expr), parent.frame()) && is.language(.expr)) .expr else expr),`
	`247`	`+ as.expression(if (is.symbol(expr) && exists(as.character(expr), parent.frame()) && is.language(.expr)) .expr else expr),`
`248`	`248`	`.snapshot`
`249`	`249`	`)`
`250`	`250`