remove redundant comment

`check_if_installed()` is descriptive enough to convey this
easystats · Jul 26, 2024 · 738cd2e · 738cd2e
1 parent 01f30b6
commit 738cd2e
Show file tree

Hide file tree

Showing 22 changed files with 7 additions and 49 deletions.
diff --git a/R/compute_variances.R b/R/compute_variances.R
@@ -250,7 +250,7 @@
     return(NULL)
   }
 
-  # installed?
+
   check_if_installed("lme4", reason = "to compute variances for mixed models")
 
   if (inherits(model, "lme")) {
@@ -420,7 +420,6 @@
     # cpglmm
     # ---------------------------
   } else if (inherits(model, "cpglmm")) {
-    # installed?
     check_if_installed("cplm")
 
     mixed_effects_info <- list(
@@ -805,7 +804,7 @@
     mu <- NA
   } else {
     if (inherits(model_null, "cpglmm")) {
-      check_if_installed("cplm") # installed?
+      check_if_installed("cplm")
       null_fixef <- unname(cplm::fixef(model_null))
     } else {
       null_fixef <- unname(.collapse_cond(lme4::fixef(model_null)))
@@ -1158,7 +1157,6 @@
 # undefined families / link-functions
 # ----------------------------------------------
 .variance_family_default <- function(model, mu, verbose) {
-  # installed?
   check_if_installed("lme4")
 
   tryCatch(

diff --git a/R/export_table.R b/R/export_table.R
@@ -935,7 +935,6 @@ print.insight_table <- function(x, ...) {
                                group_by = NULL,
                                indent_groups = NULL,
                                indent_rows = NULL) {
-  # installed?
   check_if_installed("gt")
 
   if (is.null(align)) {

diff --git a/R/find_algorithm.R b/R/find_algorithm.R
@@ -170,7 +170,6 @@ find_algorithm.speedlm <- function(x, ...) {
 
 #' @export
 find_algorithm.blavaan <- function(x, ...) {
-  # installed?
   check_if_installed("blavaan")
 
   list(

diff --git a/R/find_parameters.R b/R/find_parameters.R
@@ -178,7 +178,6 @@ find_parameters.brmultinom <- find_parameters.multinom
 
 #' @export
 find_parameters.blavaan <- function(x, flatten = FALSE, ...) {
-  # installed?
   check_if_installed("lavaan")
 
   param_tab <- lavaan::parameterEstimates(x)
@@ -227,7 +226,6 @@ find_parameters.blavaan <- function(x, flatten = FALSE, ...) {
 
 #' @export
 find_parameters.lavaan <- function(x, flatten = FALSE, ...) {
-  # installed?
   check_if_installed("lavaan")
 
   pars <- get_parameters(x)
@@ -470,7 +468,6 @@ find_parameters.survreg <- function(x, flatten = FALSE, ...) {
 
 #' @export
 find_parameters.mle2 <- function(x, flatten = FALSE, ...) {
-  # installed?
   check_if_installed("bbmle")
 
   s <- bbmle::summary(x)

diff --git a/R/find_parameters_mixed.R b/R/find_parameters_mixed.R
@@ -328,7 +328,6 @@ find_parameters.coxme <- function(x,
                                   effects = c("all", "fixed", "random"),
                                   flatten = FALSE,
                                   ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)
@@ -378,7 +377,6 @@ find_parameters.lme <- function(x,
                                 effects = c("all", "fixed", "random"),
                                 flatten = FALSE,
                                 ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)

diff --git a/R/get_df.R b/R/get_df.R
@@ -314,7 +314,6 @@ get_df.emm_list <- function(x, ...) {
 
 #' @export
 get_df.mira <- function(x, type = "residual", verbose = TRUE, ...) {
-  # installed?
   check_if_installed("mice")
   type <- match.arg(tolower(type), choices = c("residual", "model", "normal", "wald", "any", "analytical"))
   get_df(mice::pool(x), type, verbose = verbose, ...)

diff --git a/R/get_loglikelihood.R b/R/get_loglikelihood.R
@@ -310,7 +310,6 @@ get_loglikelihood.list <- get_loglikelihood.lm
 
 #' @export
 get_loglikelihood.stanreg <- function(x, centrality = stats::median, ...) {
-  # installed?
   check_if_installed("rstanarm")
 
   # Get posterior distribution of logliks

diff --git a/R/get_modelmatrix.R b/R/get_modelmatrix.R
@@ -216,7 +216,6 @@ get_modelmatrix.betareg <- function(x, ...) {
 
 #' @export
 get_modelmatrix.cpglmm <- function(x, ...) {
-  # installed?
   check_if_installed("cplm")
   cplm::model.matrix(x, ...)
 }

diff --git a/R/get_nested_lme_varcorr.R b/R/get_nested_lme_varcorr.R
@@ -2,7 +2,6 @@
 # It retrieves the variance-covariance matrix of random effects
 # from nested lme-models.
 .get_nested_lme_varcorr <- function(x) {
-  # installed?
   check_if_installed("lme4")
 
   vcor <- lme4::VarCorr(x)

diff --git a/R/get_parameters.R b/R/get_parameters.R
@@ -309,7 +309,6 @@ get_parameters.mipo <- function(x, ...) {
 
 #' @export
 get_parameters.mira <- function(x, ...) {
-  # installed?
   check_if_installed("mice")
   get_parameters(mice::pool(x), ...)
 }
@@ -355,7 +354,6 @@ get_parameters.glht <- function(x, ...) {
 
 #' @export
 get_parameters.mle2 <- function(x, ...) {
-  # installed?
   check_if_installed("bbmle")
   s <- bbmle::summary(x)
 
@@ -594,7 +592,7 @@ get_parameters.blavaan <- function(x, summary = FALSE, standardize = FALSE, ...)
   if (isTRUE(summary)) {
     return(get_parameters.lavaan(x, standardize = standardize, ...))
   }
-  # installed?
+
   check_if_installed("lavaan")
   check_if_installed("blavaan")
 
@@ -635,7 +633,6 @@ get_parameters.blavaan <- function(x, summary = FALSE, standardize = FALSE, ...)
 
 #' @export
 get_parameters.lavaan <- function(x, standardize = FALSE, ...) {
-  # installed?
   check_if_installed("lavaan")
 
   if (standardize) {

diff --git a/R/get_parameters_bayesian.R b/R/get_parameters_bayesian.R
@@ -47,7 +47,6 @@ get_parameters.BGGM <- function(x,
                                 component = c("correlation", "conditional", "intercept", "all"),
                                 summary = FALSE, centrality = "mean",
                                 ...) {
-  # installed?
   # check_if_installed("BGGM")
   #
   # out <- as.data.frame(BGGM::posterior_samples(x))
@@ -110,7 +109,6 @@ get_parameters.BFBayesFactor <- function(x,
                                          summary = FALSE,
                                          centrality = "mean",
                                          ...) {
-  # installed?
   check_if_installed("BayesFactor")
 
   effects <- match.arg(effects)

diff --git a/R/get_parameters_emmeans.R b/R/get_parameters_emmeans.R
@@ -98,7 +98,6 @@ get_parameters.emm_list <- function(x, summary = FALSE, ...) {
 
 
 .clean_emmeans_draws <- function(x, ...) {
-  # installed?
   check_if_installed("emmeans")
 
   if (!is.null(attributes(x)$misc$predict.type) && attributes(x)$misc$predict.type != "none") {

diff --git a/R/get_parameters_mixed.R b/R/get_parameters_mixed.R
@@ -48,7 +48,6 @@ get_parameters.glmm <- function(x, effects = c("all", "fixed", "random"), ...) {
 #' @rdname get_parameters.glmm
 #' @export
 get_parameters.coxme <- function(x, effects = c("fixed", "random"), ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)
@@ -115,7 +114,6 @@ get_parameters.wbm <- function(x, effects = c("fixed", "random"), ...) {
 
     text_remove_backticks(out)
   } else {
-    # installed?
     check_if_installed("lme4")
     lme4::ranef(x)
   }
@@ -135,7 +133,6 @@ get_parameters.nlmerMod <- function(x,
                                     effects = c("fixed", "random"),
                                     component = c("all", "conditional", "nonlinear"),
                                     ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)
@@ -188,7 +185,6 @@ get_parameters.nlmerMod <- function(x,
 #' @rdname get_parameters.glmm
 #' @export
 get_parameters.merMod <- function(x, effects = c("fixed", "random"), ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)
@@ -251,7 +247,6 @@ get_parameters.merModList <- function(x, ...) {
 
 #' @export
 get_parameters.HLfit <- function(x, effects = c("fixed", "random"), ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)
@@ -315,7 +310,6 @@ get_parameters.sem <- function(x, effects = c("fixed", "random"), ...) {
 
 #' @export
 get_parameters.cpglmm <- function(x, effects = c("fixed", "random"), ...) {
-  # installed?
   check_if_installed("cplm")
 
   effects <- match.arg(effects)
@@ -346,7 +340,6 @@ get_parameters.cpglmm <- function(x, effects = c("fixed", "random"), ...) {
 
 #' @export
 get_parameters.mixed <- function(x, effects = c("fixed", "random"), ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)
@@ -379,7 +372,6 @@ get_parameters.mixed <- function(x, effects = c("fixed", "random"), ...) {
 get_parameters.MixMod <- function(x,
                                   effects = c("fixed", "random"),
                                   component = c("all", "conditional", "zi", "zero_inflated", "dispersion"), ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)
@@ -456,7 +448,6 @@ get_parameters.MixMod <- function(x,
 get_parameters.glmmTMB <- function(x,
                                    effects = c("fixed", "random"),
                                    component = c("all", "conditional", "zi", "zero_inflated", "dispersion"), ...) {
-  # installed?
   check_if_installed("lme4")
 
   effects <- match.arg(effects)

diff --git a/R/get_predicted_ci.R b/R/get_predicted_ci.R
@@ -453,7 +453,6 @@ get_predicted_ci.bracl <- get_predicted_ci.mlm
     }
     if (length(ci) == 1) names(out) <- c("Parameter", "CI_low", "CI_high")
   } else {
-    # installed?
     check_if_installed(c("bayestestR", "datawizard"))
     out <- as.data.frame(bayestestR::ci(as.data.frame(t(iter)), ci = ci, method = ci_method))
     if (length(ci) > 1L) out <- datawizard::reshape_ci(out)

diff --git a/R/get_priors.R b/R/get_priors.R
@@ -33,7 +33,6 @@ get_priors <- function(x, ...) {
 
 #' @export
 get_priors.stanreg <- function(x, verbose = TRUE, ...) {
-  # installed?
   check_if_installed("rstanarm")
 
   ps <- rstanarm::prior_summary(x)
@@ -119,7 +118,6 @@ get_priors.stanreg <- function(x, verbose = TRUE, ...) {
 
 #' @export
 get_priors.stanmvreg <- function(x, ...) {
-  # installed?
   check_if_installed("rstanarm")
 
 
@@ -581,7 +579,6 @@ get_priors.BFBayesFactor <- function(x, ...) {
 
 #' @export
 get_priors.blavaan <- function(x, ...) {
-  # installed?
   check_if_installed("lavaan")
 
 

diff --git a/R/get_statistic.R b/R/get_statistic.R
@@ -1239,7 +1239,6 @@ get_statistic.selection <- function(x, component = "all", ...) {
 
 #' @export
 get_statistic.lavaan <- function(x, ...) {
-  # installed?
   check_if_installed("lavaan")
 
   params <- lavaan::parameterEstimates(x)
@@ -1790,7 +1789,6 @@ get_statistic.wbgee <- get_statistic.wbm
 
 #' @export
 get_statistic.cpglmm <- function(x, ...) {
-  # installed?
   check_if_installed("cplm")
 
   stats <- cplm::summary(x)$coefs
@@ -1835,7 +1833,6 @@ get_statistic.sem <- function(x, ...) {
 
 #' @export
 get_statistic.cpglm <- function(x, ...) {
-  # installed?
   check_if_installed("cplm")
 
   junk <- utils::capture.output(stats <- cplm::summary(x)$coefficients) # nolint
@@ -1856,7 +1853,6 @@ get_statistic.cpglm <- function(x, ...) {
 
 #' @export
 get_statistic.zcpglm <- function(x, component = "all", ...) {
-  # installed?
   check_if_installed("cplm")
 
   component <- match.arg(component, choices = c("all", "conditional", "zi", "zero_inflated"))
@@ -2382,7 +2378,6 @@ get_statistic.DirichletRegModel <- function(x, component = "all", ...) {
 
 #' @export
 get_statistic.glimML <- function(x, ...) {
-  # installed?
   check_if_installed("aod")
 
   parms <- get_parameters(x)

diff --git a/R/get_varcov.R b/R/get_varcov.R
@@ -499,7 +499,7 @@ get_varcov.zcpglm <- function(x,
   .check_get_varcov_dots(x, ...)
   component <- match.arg(component)
 
-  # installed?
+
   check_if_installed("cplm")
 
   vc <- cplm::vcov(x)
@@ -957,7 +957,7 @@ get_varcov.feis <- function(x, verbose = TRUE, ...) {
 #' @export
 get_varcov.glimML <- function(x, verbose = TRUE, ...) {
   .check_get_varcov_dots(x, ...)
-  # installed?
+
   check_if_installed("aod")
 
   vc <- aod::vcov(x)
@@ -968,7 +968,7 @@ get_varcov.glimML <- function(x, verbose = TRUE, ...) {
 #' @export
 get_varcov.vglm <- function(x, verbose = TRUE, ...) {
   .check_get_varcov_dots(x, ...)
-  # installed?
+
   check_if_installed("VGAM")
   vc <- VGAM::vcov(x)
   .process_vcov(vc, verbose, ...)

diff --git a/R/link_function.R b/R/link_function.R
@@ -419,7 +419,6 @@ link_function.mipo <- function(x, ...) {
 
 #' @export
 link_function.mira <- function(x, ...) {
-  # installed?
   check_if_installed("mice")
   link_function(mice::pool(x), ...)
 }

diff --git a/R/link_inverse.R b/R/link_inverse.R
@@ -727,7 +727,6 @@ link_inverse.mipo <- function(x, ...) {
 
 #' @export
 link_inverse.mira <- function(x, ...) {
-  # installed?
   check_if_installed("mice")
   link_inverse(mice::pool(x), ...)
 }
@@ -758,7 +757,6 @@ link_inverse.mira <- function(x, ...) {
   if (is.null(link)) link <- "log"
 
   if (is.numeric(link)) {
-    # installed?
     check_if_installed("statmod")
     statmod::tweedie(link.power = link)
   } else {

diff --git a/R/model_info.R b/R/model_info.R
@@ -1132,7 +1132,6 @@ model_info.svy2lme <- function(x, verbose = TRUE, ...) {
 
 #' @export
 model_info.glmmTMB <- function(x, ...) {
-  # installed?
   check_if_installed("lme4")
 
   faminfo <- stats::family(x)

diff --git a/R/n_parameters.R b/R/n_parameters.R
@@ -258,7 +258,7 @@ n_parameters.logitr <- function(x, effects = c("all", "fixed", "random"), ...) {
 #' @export
 n_parameters.lavaan <- function(x, ...) {
   # TODO
-  # installed?
+
   # check_if_installed("lavaan")
   # lavaan::fitmeasures(x)[["npar"]]
 }

diff --git a/R/utils_model_info.R b/R/utils_model_info.R
@@ -466,7 +466,6 @@
 
 
 .classify_BFBayesFactor <- function(x) {
-  # installed?
   check_if_installed("BayesFactor")
 
   if (inherits(x@denominator, "BFcorrelation")) {