get_varcov() works when vcov is of class "dpoMatrix". (#1192)

* `get_varcov()` works when `vcov` is of class `"dpoMatrix"`.

* fix

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 1.5.0.8
+Version: 1.5.0.9
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

NEWS.md

@@ -23,6 +23,9 @@
 * `has_intercept()` now correctly detects whether models from packages *fixest*
   and *lfe* have intercepts or not.
 
+* The `vcov` argument in `get_varcov()` was ignored when `vcov` was of class
+  `"dpoMatrix"` and did not return `TRUE` to `is.matrix()`.
+
 # insight 1.5.0
 
 ## Changes

R/get_varcov_sandwich.R

@@ -9,6 +9,12 @@
 ) {
   dots <- list(...)
 
+  # make sure we have a "matrix" class
+  if (inherits(vcov_fun, "Matrix") || inherits(vcov_fun, "dpoMatrix")) {
+    check_if_installed("Matrix")
+    vcov_fun <- as.matrix(vcov_fun)
+  }
+
   if (is.null(vcov_args)) {
     vcov_args <- list()
   }