R/brackets_R6.R

In fcaR: Formal Concept Analysis

#' @export
#' @noRd
`[.ConceptSet` <- function(x, ...) x$`[`(...)
#' @export
#' @noRd
`[.ImplicationSet` <- function(x, ...) x$`[`(...)
#' @export
#' @noRd
`[.Set` <- function(x, ...) x$`[`(...)
#' @export
#' @noRd
`[.FormalContext` <- function(x, ...) x$`[`(...)

#' @export
#' @method as.list ConceptSet
#' @noRd
as.list.ConceptSet <- function(x, ...) {

  if ("to_list" %in% names(x)) {

    return(x$to_list())

  } else {

    stop("Cannot convert R6 class to list...")

  }

}

#' @export
#' @method length ConceptSet
#' @noRd
length.ConceptSet <- function(x, ...) {

  x$size()

}