R/node.R

In pmcharrison/suffixTree: Timestamped Suffix Trees (TSTs)

new_node <- function(value, pos, time, terminal = FALSE) {
  self <- new.env()
  self$value <- value
  self$log_0 <- list(pos = list(pos), # without update exclusion
                     time = list(time))
  self$log_1 <- list(pos = list(pos),
                     time = list(time)) # with update exclusion
  self$children <- new.env()
  class(self) <- c(if (terminal) "terminal",
                   "node")
  self
}

get_value <- function(x) {
  x$value
}

get_children <- function(x) {
  x$children
}

is_node_active <- function(node, tree) {
  any(sapply(tree$active_nodes, function(x) identical(x, node)))
}

is_node <- function(x) {
  is(x, "node")
}

is_terminal_node <- function(x) {
  is(x, "node") && is(x, "terminal")
}