From f4ba5e0ac4378e7b73c86c605b271da3a7176253 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Wed, 26 Jun 2024 10:53:45 +0200
Subject: [PATCH] fix

---
 R/find_terms.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/find_terms.R b/R/find_terms.R
index e08c854417..f9164fcc6b 100644
--- a/R/find_terms.R
+++ b/R/find_terms.R
@@ -213,7 +213,7 @@ find_terms.mipo <- function(x, flatten = FALSE, ...) {
 
   # exceptions where we want to preserve the response value come here
   # - lm(1 / Sepal.Length ~ Species, data = iris)
-  if (startsWith(original_response, "1/")) {
+  if (!is.null(original_response) && startsWith(original_response, "1/")) {
     f$response <- original_response
   }