Warn user when computing FRic with many species/many traits about fundiversity HOT 1 CLOSED

tr_df = matrix(rnorm(50*25), ncol = 25)

rownames(tr_df) = paste0("sp", 1:50)
colnames(tr_df) = paste0("tr", 1:25)

comp_chull = lapply(1:ncol(tr_df), function(x) {
  sub_tr = tr_df[, 1:x, drop = FALSE]
  
  tryCatch({
    geometry::convhulln(sub_tr, options = "FA")
    
    data.frame(n_tr = x, computable = TRUE)
  },
  error = function(cond) {
    data.frame(n_tr = x, computable = FALSE)
  })
})

   n_tr computable
1     1      FALSE
2     2       TRUE
3     3       TRUE
4     4       TRUE
5     5       TRUE
6     6       TRUE
7     7       TRUE
8     8       TRUE
9     9       TRUE
10   10       TRUE
11   11       TRUE
12   12       TRUE
13   13       TRUE
14   14       TRUE
15   15       TRUE
16   16       TRUE
17   17      FALSE
18   18      FALSE
19   19      FALSE
20   20      FALSE
21   21      FALSE
22   22      FALSE
23   23      FALSE
24   24      FALSE
25   25      FALSE