Add span kinds

Author: shikokuchuo

R/daemon.R

@@ -221,7 +221,7 @@ eval_mirai <- function(._mirai_.) {
           spn <- otel::start_local_active_span(
             "mirai::daemon->eval",
             links = list(daemon = dmn_spn),
-            options = list(parent = prtctx)
+            options = list(kind = "server", parent = prtctx)
           )
           dmn_spn$add_event("eval start", attributes = list(span.id = spn$get_context()$get_span_id()))
         }

R/mirai.R

@@ -169,7 +169,7 @@ mirai <- function(.expr, ..., .args = list(), .timeout = NULL, .compute = NULL)
       spn <- otel::start_local_active_span(
         "mirai::mirai",
         links = if (active) list(compute_profile = envir[["otel_span"]]),
-        options = if (!active) list(parent = envir[["otel_span"]])
+        options = list(kind = "client", parent = if (!active) envir[["otel_span"]])
       )
       otel::pack_http_context()
     }