R/ggtda.R

In rrrlw/ggtda: 'ggplot2' Extension to Visualize Topological Persistence

#' @title Base `ggproto` classes for *ggtda*
#' 
#' @name ggtda-ggproto
#' @seealso [`ggplot2::ggplot2-ggproto`]
#' @keywords internal
NULL

#' @title A *ggplot2* Extension for Persistence Data
#'
#' @description *ggtda* is a user-friendly *ggplot2* extension for visualizing
#'   data arising from topological data analysis, including persistence data and
#'   topological constructions on planar data.
#'
#' @import ggplot2
#' @name ggtda
#' @importFrom rlang on_load run_on_load
"_PACKAGE"

# installed versions of {simplextree} and {ripserr}, or `NULL` if not installed
.onLoad <- function(...) {
  run_on_load()
}
on_load(
  .simplextree_version <-
    if ("simplextree" %in% rownames(utils::installed.packages())) {
      utils::packageVersion("simplextree")
    } else NA_character_
)
on_load(
  .ripserr_version <-
    if ("ripserr" %in% rownames(utils::installed.packages())) {
      utils::packageVersion("ripserr")
    } else NA_character_
)