add define observer to rLog

R/graph.R

@@ -221,6 +221,9 @@ RLog <- R6Class(
     defineKey = function(reactId, value, key, label, domain) {
       self$define(self$keyIdStr(reactId, key), value, self$keyIdStr(label, key), "reactiveValuesKey", domain)
     },
+    defineObserver = function(reactId, label, domain) {
+      self$define(reactId, value = NULL, label, "observer", domain)
+    },
 
     dependsOn = function(reactId, depOnReactId, ctxId, domain) {
       if (is.null(reactId)) return()

R/reactives.R

@@ -1082,7 +1082,7 @@ Observer <- R6Class(
       setAutoDestroy(autoDestroy)
 
       .reactId <<- nextGlobalReactId()
-      rLog$define(.reactId, NULL, .label, type = "observer", .domain)
+      rLog$defineObserver(.reactId, .label, .domain)
 
       # Defer the first running of this until flushReact is called
       .createContext()$invalidate()