Simplify and avoid long parent spans

Author: shikokuchuo

R/daemon.R

@@ -223,7 +223,6 @@ eval_mirai <- function(._mirai_.) {
             links = list(daemon = dmn_spn),
             options = list(kind = "server", parent = prtctx)
           )
-          dmn_spn$add_event("eval start", attributes = list(span.id = spn$get_context()$get_span_id()))
         }
         eval(._mirai_.[["._expr_."]], envir = ._mirai_., enclos = .GlobalEnv)
       },

R/map.R

@@ -159,11 +159,9 @@ mirai_map <- function(.x, .f, ..., .args = list(), .promise = NULL, .compute = N
   if (is.null(.compute)) .compute <- .[["cp"]]
 
   if (otel_tracing) {
-    active <- otel::get_active_span_context()$is_valid()
     spn <- otel::start_local_active_span(
       "mirai::mirai_map",
-      links = if (active) list(compute_profile = ..[[.compute]][["otel_span"]]),
-      options = if (!active) list(parent = ..[[.compute]][["otel_span"]])
+      links = list(compute_profile = ..[[.compute]][["otel_span"]])
     )
   }
 

R/mirai.R

@@ -165,11 +165,10 @@ mirai <- function(.expr, ..., .args = list(), .timeout = NULL, .compute = NULL)
     ) .expr else expr,
     ._globals_. = globals,
     ._otel_. = if (otel_tracing && length(envir)) {
-      active <- otel::get_active_span_context()$is_valid()
       spn <- otel::start_local_active_span(
         "mirai::mirai",
-        links = if (active) list(compute_profile = envir[["otel_span"]]),
-        options = list(kind = "client", parent = if (!active) envir[["otel_span"]])
+        links = list(compute_profile = envir[["otel_span"]]),
+        options = list(kind = "client")
       )
       otel::pack_http_context()
     }