Test get_variance for zero-inflation models

DESCRIPTION

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

NEWS.md

@@ -12,6 +12,23 @@
 
 * Improved accuracy of singularity-checks in `get_variance()`.
 
+* `get_variance()` gets a few new arguments:
+
+  * `null_model`, to provide a null-model to be used for the calculation of
+    random effect variances. If `NULL`, the null-model is computed internally.
+    This argument is optional, but may be useful to save time, or when the
+    null-model cannot be calculated internally.
+
+  * `approximation`, indicating the approximation method for the distribution-specific
+    (observation level, or residual) variance.
+
+  * `model_component`, for models that can have a zero-inflation component,
+    specify for which component variances should be returned. By default, both
+    the conditional and the zero-inflation component are taken into account.
+
+* `format_alert()` and `format_warning()` get an `immediate` argument, to
+  output warnings immediately.
+
 ## Bug fixes
 
 * `null_model()` now correctly handles zero-inflated models from package

R/colour_tools.R

@@ -3,7 +3,8 @@
     return(FALSE)
   }
 
-  if ((cols <- Sys.getenv("RSTUDIO_CONSOLE_COLOR", "")) != "" && !is.na(as.numeric(cols))) {
+  cols <- Sys.getenv("RSTUDIO_CONSOLE_COLOR", "")
+  if (cols != "" && !is.na(as.numeric(cols))) {
     return(TRUE)
   }
 
@@ -188,7 +189,7 @@
 
 # tools -----------------------------------
 
 .colour <- function(colour = "red", x) {
   # replace "bright" suffixes to a generic color code
   if (grepl("^(bright_|br_)", colour)) {
     colour <- gsub("^(bright_|br_)", "b", colour)