R/rdiv.R

setGeneric("ggplot")

#' plot.rdiv
#'
#' @param data object of class \code{rdiv}
#' @export
#'
setMethod(f = "ggplot", signature(data = "rdiv"),
          definition = function(data) {
            what <- what(data)
            if(what=="inddiv") return(plot_inddiv(data))
            if(what=="subdiv" || (what=="metadiv") || what=="both") {
              qs <- unique(data$q)
              if(length(qs)==1) return(plot_single(data))
              if(any(qs==0) && any(qs==Inf)) return(plot_diversity(data))
              if(!any(qs %in% Inf)) return(simple_plot(data))
            }
          })
mysteryduck/ggrdiversity documentation built on May 9, 2019, 2:59 p.m.