Temporarily dissable custom_eqn (#29).

R/allo_find.R

@@ -64,17 +64,24 @@ allo_find_memoised <- memoise::memoise(allo_find_impl)
 #'  dbh_unit = "cm",
 #'  bms_unit = "g",
 #'  dbh_min_mm = 0,
-#'  dbh_max_mm = Inf
+#'  dbh_max_mm = Inf,
+#'  is_generic = FALSE
 #' )
 #'
 #' class(as_eqn(your_equations))
 #'
-#' allo_find(census_species, custom_eqn = as_eqn(your_equations))
-#'
-#' census_species %>%
-#' allo_find(custom_eqn = as_eqn(your_equations))
+#' # FIXME: https://github.com/forestgeo/fgeo.biomass/issues/29
+#' try(allo_find(census_species, custom_eqn = as_eqn(your_equations)))
 #' @family constructors
 allo_find <- function(data, custom_eqn = NULL) {
+  if (!is.null(custom_eqn)) {
+    warn(glue("
+      Ignoring `custom_equaiton`.
+      See https://github.com/forestgeo/fgeo.biomass/issues/29
+    "))
+  }
+  custom_eqn <- NULL
+
   inform("Assuming `dbh` in [mm] (required to find dbh-specific equations).")
   warn_odd_dbh(data$dbh)
   allo_find_memoised(data, custom_eqn = custom_eqn)

R/utils.R

@@ -1,5 +1,6 @@
 prefer_false <- function(x) {
   stopifnot(is.logical(x))
+
   if (all(x[!is.na(x)])) {
     x
   } else {

tests/testthat/test-allo_find.R

@@ -82,6 +82,7 @@ test_that("allo_find errs if custom_eqn is not created with as_eqn", {
     anatomic_relevance = c("total aboveground biomass")
   )
 
+  skip("Ignoring custom_eqn see #29")
   expect_error(
     suppressWarnings(allo_find(census_species, custom_eqn = your_equations)),
     "must be of class 'eqn'"