R/0aaa.R

In cluster: "Finding Groups in Data": Cluster Analysis Extended Rousseeuw et al.

## Ensure consistent "diss.." class --- make "namespace-private-global !
dissiCl <- c("dissimilarity", "dist")

if((Rv <- getRversion()) < "4.0.0") {
    ## deparse(.) returning *one* string
    deparse1 <- function(expr, collapse = " ", width.cutoff = 500L, ...)
        paste(deparse(expr, width.cutoff, ...), collapse=collapse)

  if(Rv < "3.2.1") {
    lengths <- function (x, use.names = TRUE) vapply(x, length, 1L, USE.NAMES = use.names)
    if(Rv < "3.1.0") {
        anyNA <- function(x) any(is.na(x))
        ## if(Rv < "3.0.0") {
        ##     rep_len <- function(x, length.out) rep(x, length.out=length.out)
        ##     ## if(Rv < "2.15")
        ##     ##     paste0 <- function(...) paste(..., sep = '')
        ## }
    }
  } # < 3.2.1
}; rm(Rv)

##' Not exported, useful to run checks faster, e.g., on CRAN:
doExtras <- function() {
    interactive() || nzchar(Sys.getenv("R_CLUSTER_CHECK_EXTRA")) ||
        identical("true", unname(Sys.getenv("R_PKG_CHECKING_doExtras")))
}