R/atomic_coercions.R

In set6: R6 Mathematical Sets Interface

#' @export
as.double.Set <- function(x, ...) {
  if (testFuzzy(x)) {
    return(sort(unlist(x$support())))
  } else {
    return(sort(unlist(x$elements)))
  }
}

#' @export
as.double.Tuple <- function(x, ...) {
  if (testFuzzy(x)) {
    return(unlist(x$support()))
  } else {
    return(unlist(x$elements))
  }
}

#' @export
as.character.Set <- function(x, n = 1e10, ...) {
  x$strprint(n = n)
}