https://github.com/easystats/modelbased/issues/110

NEWS.md

@@ -1,5 +1,10 @@
 # insight 0.14.2
 
+## Changes to functions
+
+* `check_if_installed()` gains a `minimum_version` argument, to check if an
+  installed package is not older than the specified version number.
+
 ## Bug fixes
 
 * Fixed issue in `model_info()` with `stan_polr()` models.

R/check_if_installed.R

@@ -6,29 +6,41 @@
 #'   generic description.
 #' @param stop Logical that decides whether the function should stop if the
 #'   needed package is not installed.
+#' @param minimum_version String, representing the minimum package version that
+#'   is required. If \code{NULL}, no check for minimum version is done.
 #' @param ... Currently ignored
 #'
 #' @examples
 #' \dontrun{
 #' check_if_installed("inexistent_package")
+#' check_if_installed("insight")
+#' check_if_installed("insight", minimum_version = "99.8.7")
 #' }
-#'
 #' @export
-
 check_if_installed <- function(package,
                                reason = "for this function to work",
                                stop = TRUE,
+                               minimum_version = NULL,
                                ...) {
   # does it need to be displayed?
   is_installed <- requireNamespace(package, quietly = TRUE)
   if (!is_installed) {
     # prepare the message
-    message <- paste0(
+    message <- format_message(paste0(
       "Package '", package, "' is required ", reason, ".\n",
       "Please install it by running install.packages('", package, "')."
-    )
+    ))
+
+    if (stop) stop(message, call. = FALSE) else warning(message, call. = FALSE)
+  } else if (!is.null(minimum_version) && utils::packageVersion(package) < package_version(minimum_version)) {
+    # prepare the message
+    message <- format_message(paste0(
+      "Package '", package, "' is installed, but package version '", minimum_version,"' is required ", reason, ".\n",
+      "Please update the package by running install.packages('", package, "')."
+    ))
 
     if (stop) stop(message, call. = FALSE) else warning(message, call. = FALSE)
   }
+
   invisible(is_installed)
 }