Fixed NA management issue

NEWS.md

@@ -35,6 +35,7 @@ roundness <- function(matrix) {
  * `space.maker` can now generate specific row names and be replicated to generate a bunch of spaces (via the new optional arguments `elements.names` and `replicates` respectively).
  * The `add.tree` utility function now has an optional argument to override any existing trees (`replace = TRUE`) or not (`replace = FALSE`; which remains the default previous behaviour). 
  * `print.dispRity` now recognises and highlights simulated data from the [`treats`](https://github.com/tguillerme/treats) package.
+ * Improved `NA` management for `S3` functions.
 
 ### BUG FIXES
 

R/summary.dispRity_fun.R

@@ -9,7 +9,7 @@ get.summary <- function(disparity_subsets_rare, cent.tend, quantiles, ...) {
     output <- list()
 
     ## Summarising NA
-    if(is.na(disparity_subsets_rare[[1]])) {
+    if(all(is.na(disparity_subsets_rare))) {
         if(!missing(cent.tend)) {
             output$cent.tend <- NA
         }