Prepare CRAN release (#1074)

* Prepare CRAN release

* fix

* add test

* add test

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 1.2.0.11
+Version: 1.3.0
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -148,7 +148,7 @@ Suggests:
     lmtest,
     logistf,
     logitr,
-    marginaleffects (>= 0.25.0),
+    marginaleffects (>= 0.26.0),
     MASS,
     Matrix,
     mclogit,
@@ -221,4 +221,3 @@ Config/testthat/edition: 3
 Config/testthat/parallel: true
 Config/Needs/website: easystats/easystatstemplate
 Config/Needs/check: stan-dev/cmdstanr
-Remotes: vincentarelbundock/marginaleffects

NEWS.md

@@ -1,4 +1,4 @@
-# insight (devel)
+# insight 1.3.0
 
 ## Breaking Changes
 

R/find_formula.R

@@ -164,7 +164,11 @@ formula_ok <- function(x,
 #' @rdname find_formula
 #' @export
 find_formula.default <- function(x, verbose = TRUE, ...) {
-  f <- .safe(list(conditional = .dot_formula(stats::formula(x), x, ...)))
+  f <- .safe(list(conditional = stats::formula(x)))
+  # if evaluation succeeds, we check in a next steps if dots are used
+  if (!is.null(f)) {
+    f$conditional <- .dot_formula(f$conditional, x, ...)
+  }
   .find_formula_return(f, verbose = verbose)
 }
 

tests/testthat/test-htest.R

@@ -15,6 +15,12 @@ test_that("get_data.t-test", {
   )
 })
 
+test_that("find_formula.t-test", {
+  x <- t.test(mpg ~ vs, data = mtcars)
+  expect_null(find_formula(x))
+  expect_silent(find_formula(x))
+})
+
 test_that("model_info.t-test", {
   expect_true(model_info(x)$is_ttest)
 })
@@ -35,6 +41,7 @@ test_that("get_data.t-test, one-sample", {
   expect_identical(nrow(get_data(tt2)), 32L)
   expect_true(model_info(tt1)$is_ttest)
   expect_true(model_info(tt2)$is_ttest)
+  expect_silent(get_data(tt1))
 })
 
 # Two sample