From 482e40b71af52e78d81d77f5f5068d01fae710b2 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 19 Sep 2023 16:52:03 +0200
Subject: [PATCH] fix example

---
 R/clean_parameters.R    | 13 ++++++-------
 man/clean_parameters.Rd | 10 +++++-----
 2 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/R/clean_parameters.R b/R/clean_parameters.R
index c267af290..481a014ef 100644
--- a/R/clean_parameters.R
+++ b/R/clean_parameters.R
@@ -5,12 +5,12 @@
 #' patterns like `"r_"` or `"b[]"` (mostly applicable to Stan models)
 #' and adding columns with information to which group or component parameters
 #' belong (i.e. fixed or random, count or zero-inflated...)
-#' \cr \cr
+#'
 #' The main purpose of this function is to easily filter and select model parameters,
 #' in particular of - but not limited to - posterior samples from Stan models,
 #' depending on certain characteristics. This might be useful when only selective
 #' results should be reported or results from all parameters should be filtered
-#' to return only certain results (see [print_parameters()]).
+#' to return only certain results (see [`print_parameters()`]).
 #'
 #' @param x A fitted model.
 #' @inheritParams find_parameters
@@ -27,17 +27,16 @@
 #' The `Effects` column indicate if a parameter is a *fixed* or *random* effect.
 #' The `Component` can either be *conditional* or *zero_inflated*. For models
 #' with random effects, the `Group` column indicates the grouping factor of the
-#' random effects. For multivariate response models from \pkg{brms} or
-#' \pkg{rstanarm}, an additional *Response* column is included, to indicate
+#' random effects. For multivariate response models from **brms** or
+#' **rstanarm**, an additional *Response* column is included, to indicate
 #' which parameters belong to which response formula. Furthermore,
 #' *Cleaned_Parameter* column is returned that contains "human readable"
 #' parameter names (which are mostly identical to `Parameter`, except for for
-#' models from \pkg{brms} or \pkg{rstanarm}, or for specific terms like smooth-
+#' models from **brms** or **rstanarm**, or for specific terms like smooth-
 #' or spline-terms).
 #'
-#' @examplesIf require("curl", quietly = TRUE) && curl::has_internet()
+#' @examplesIf require("curl", quietly = TRUE) && curl::has_internet() && require("brms")
 #' \donttest{
-#' library(brms)
 #' model <- download_model("brms_zi_2")
 #' clean_parameters(model)
 #' }
diff --git a/man/clean_parameters.Rd b/man/clean_parameters.Rd
index d73284425..fccfe08ca 100644
--- a/man/clean_parameters.Rd
+++ b/man/clean_parameters.Rd
@@ -22,7 +22,7 @@ This function "cleans" names of model parameters by removing
 patterns like \code{"r_"} or \code{"b[]"} (mostly applicable to Stan models)
 and adding columns with information to which group or component parameters
 belong (i.e. fixed or random, count or zero-inflated...)
-\cr \cr
+
 The main purpose of this function is to easily filter and select model parameters,
 in particular of - but not limited to - posterior samples from Stan models,
 depending on certain characteristics. This might be useful when only selective
@@ -33,16 +33,16 @@ to return only certain results (see \code{\link[=print_parameters]{print_paramet
 The \code{Effects} column indicate if a parameter is a \emph{fixed} or \emph{random} effect.
 The \code{Component} can either be \emph{conditional} or \emph{zero_inflated}. For models
 with random effects, the \code{Group} column indicates the grouping factor of the
-random effects. For multivariate response models from \pkg{brms} or
-\pkg{rstanarm}, an additional \emph{Response} column is included, to indicate
+random effects. For multivariate response models from \strong{brms} or
+\strong{rstanarm}, an additional \emph{Response} column is included, to indicate
 which parameters belong to which response formula. Furthermore,
 \emph{Cleaned_Parameter} column is returned that contains "human readable"
 parameter names (which are mostly identical to \code{Parameter}, except for for
-models from \pkg{brms} or \pkg{rstanarm}, or for specific terms like smooth-
+models from \strong{brms} or \strong{rstanarm}, or for specific terms like smooth-
 or spline-terms).
 }
 \examples{
-\dontshow{if (require("curl", quietly = TRUE) && curl::has_internet()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
+\dontshow{if (require("curl", quietly = TRUE) && curl::has_internet() && require("brms")) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 \donttest{
 library(brms)
 model <- download_model("brms_zi_2")