R/helperMethods.R

In MarekSlenker/MorphoTools2: Multivariate Morphometric Analysis

#' List morphological characters
#' @export
characters <- function(object) {
  switch (class(object),
    "cdadata" = return(rownames(object$totalCanonicalStructure)),
    "pcadata" = return(rownames(object$eigenvectors)),
    "morphodata" = return(colnames(object$data))
  )
  stop(paste("Not implemented for class '", class(object), "'.", sep = ""), call. = FALSE)
}



# internal


.checkClass <- function(object, class) {
  if (! (methods::is(object, class))) stop(paste("Object is not of class '", class, "'.", sep = ""), call. = FALSE)
}


####################x
# dalej nekontrolovane





# vector aj symbols su oba vektory. hodnoty vo vektore nahradi postupne symbolmi.
# ak je symbolov menej, tak ich zrecykluje, ak ich je viace, kasle na ne

.setValuesForVector <- function(vector, symbols) {

  uniques = levels(vector)  # uniques = unique(vector)  levels

  for (uniq in uniques) {

    levelPos = which( uniques %in% uniq )

    while (levelPos > length(symbols)) {

      # ak uzivatel zada 2 pch pre 3 taxony, tak pre posledny taxon 3 - 2 a pch bude 1
      levelPos = levelPos - length(symbols)
    }

    #symbolsPositions = which( object$objects$Taxon %in% uniq)
    #vector[symbolsPositions == uniq] = symbols[levelPos]

    vector = as.character(vector)
    vector[vector == uniq] = symbols[levelPos]
    vector = as.factor(vector)
  }

  return(as.character(vector))
}






#plot2DLabels <- function(object, axes) {
#  text(x = object$objects$scores[ ,axes[1]], y = object$objects$scores[ ,axes[2]],
#       labels = object$objects$ID, cex = 0.7, pos = 4, offset = 0.5)
#}