R/text.orditkplot.R

In vegandevs/vegan3d: Static and Dynamic 3D and Editable Interactive Plots for the 'vegan' Package

`text.orditkplot` <- function(x, cex = x$args$tcex, col = x$args$tcol,
                              font = attr(x$labels, "font"), ...) {
    if (is.null(font)) {
        font <- par("font")
    }
    text(x$labels, labels = rownames(x$labels), cex = cex, col = col,
         font = font, ...)
}