Merge branch 'env-drops-dims'

vegandevs · Jan 7, 2025 · 593c856 · 593c856
2 parents 7f38987 + b12a31a
commit 593c856
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/envfit.default.R b/R/envfit.default.R
@@ -8,6 +8,10 @@
         w <- if (is.atomic(ord)) attr(ord, "weights")
              else weights(ord, display = display)
     X <- scores(ord, display = display, choices = choices, ...)
+    if (is.null(dim(env))) { # can fail with dropped dims: issue #720
+        env.name <- deparse1(substitute(env))
+        env <- as.data.frame(env, nm=env.name)
+    }
     keep <- complete.cases(X) & complete.cases(env)
     if (any(!keep)) {
         if (!na.rm)