R/cast-obj.R

In causalDisco: Tools for Causal Discovery on Observational Data

#' Cast a Java object to a superclass
#'
#' This function takes a Java object and casts it to a superclass, so it can be
#' used in the Tetrad Search class.
#'
#' @param obj A Java object to be cast.
#' @noRd
#' @keywords internal
#'
#' @example inst/roxygen-examples/cast_obj-example.R
#'
#' @return A Java object cast to a superclass that Tetrad takes as input.
cast_obj <- function(obj) {
  # If the object is a score, cast it to ScoreWrapper
  if (
    rJava::.jinstanceof(obj, "edu/cmu/tetrad/algcomparison/score/ScoreWrapper")
  ) {
    rJava::.jcast(obj, "edu/cmu/tetrad/algcomparison/score/ScoreWrapper")
    # If the object is a data object, cast it to DataModel
  } else if (rJava::.jinstanceof(obj, "edu/cmu/tetrad/data/DataModel")) {
    rJava::.jcast(obj, "edu/cmu/tetrad/data/DataModel")
    # If the object is a test, cast it to IndependenceWrapper
  } else if (
    rJava::.jinstanceof(
      obj,
      "edu/cmu/tetrad/algcomparison/independence/IndependenceWrapper"
    )
  ) {
    rJava::.jcast(
      obj,
      "edu/cmu/tetrad/algcomparison/independence/IndependenceWrapper"
    )
    # If the object is an EdgeListGraph, cast it to Graph
  } else if (rJava::.jinstanceof(obj, "edu/cmu/tetrad/graph/Graph")) {
    rJava::.jcast(obj, "edu/cmu/tetrad/graph/Graph")
  } else {
    # Cast error
    stop(
      "The Java object cannot be cast to a superclass by cast_obj.",
      call. = FALSE
    )
  }
}