Fix issue for fd_fric_intersect()

R/fd_fric_intersect.R

@@ -19,6 +19,9 @@
 #' * `FRic_intersect` the volume of the convex hulls intersection of each
 #' pair of site.
 #'
+#' ```{r child = "man/rmdchunks/no_row_names.Rmd"}
+#' ```
+#'
 #' NB: FRic_intersect is equal to `NA` when there are strictly less species in
 #' one of the sites than the number of provided traits. Note that only species
 #' with strictly different trait combinations are considered unique, species
@@ -73,6 +76,12 @@ fd_fric_intersect <- function(traits, sp_com, stand = FALSE) {
 
   }
 
+  if (is.null(rownames(sp_com))) {
+
+    rownames(sp_com) <- paste0("s", seq_len(nrow(sp_com)))
+
+  }
+
   max_range <- 1
 
   if (stand) {

tests/testthat/test-fric_intersect.R

@@ -187,6 +187,23 @@ test_that("Functional Richness Inters. works on data.frame as well as matrix", {
   )
 })
 
+test_that("Functional Richness Intersection works when sites have no names", {
+
+  site_sp_no_names <- site_sp_birds[1,, drop = FALSE]
+  rownames(site_sp_no_names) <- NULL
+
+  fric_int <- expect_silent(fd_fric_intersect(traits_birds, site_sp_no_names))
+
+  expect_s3_class(fric_int, "data.frame")
+  expect_identical(dim(fric_int), c(1L, 3L))
+  expect_named(fric_int, c("first_site", "second_site", "FRic_intersect"))
+
+  expect_equal(fric_int$FRic_intersect, 171543.73, tolerance = 1e-7)
+  expect_equal(fric_int[1, "first_site"], "s1")
+  expect_equal(fric_int[1, "second_site"], "s1")
+
+})
+
 # Tests for invalid inputs -----------------------------------------------------
 
 test_that("Functional Richness Intersection fails gracefully", {