R/symengine_info.R

In symengine/symengine.R: Interface to the 'SymEngine' Library

#' Information about SymEngine Library
#' 
#' Functions to get symengine logo, version and external libraries built with.
#'
#' @return Character vector.
#' 
#' @rdname symengine_info
#' @export
symengine_version <- function() {
    cwrapper_symengine_version()
}

#' @rdname symengine_info
#' @export
symengine_ascii_art <- function() {
    strsplit(cwrapper_symengine_ascii_art(), split = "\n")[[1]]
}

#' @param which A character vector.
#' @rdname symengine_info
#' @export
symengine_have_component <- function (
    which = c("mpfr", "flint", "arb", "mpc", "ecm",
              "primesieve", "piranha", "boost", "pthread", "llvm"))
{
    vapply(which, FUN.VALUE = logical(1L), cwrapper_symengine_have_component)
}

#' @rdname symengine_info
symengine_compilation_notes <- function() {
    compilation_notes()
}