docs, lintrs

R/bayesfactor_parameters.R

@@ -185,12 +185,7 @@
 #' @author Mattan S. Ben-Shachar
 #'
 #' @export
-bayesfactor_parameters <- function(posterior,
-                                   prior = NULL,
-                                   direction = "two-sided",
-                                   null = 0,
-                                   verbose = TRUE,
-                                   ...) {
+bayesfactor_parameters <- function(posterior, ...) {
   UseMethod("bayesfactor_parameters")
 }
 
@@ -411,12 +406,14 @@ bayesfactor_parameters.data.frame <- function(posterior,
                                               rvar_col = NULL,
                                               verbose = TRUE,
                                               ...) {
-  if (length(x_rvar <- .possibly_extract_rvar_col(posterior, rvar_col)) > 0L) {
+  x_rvar <- .possibly_extract_rvar_col(posterior, rvar_col)
+  if (length(x_rvar) > 0L) {
     cl <- match.call()
     cl[[1]] <- bayestestR::bayesfactor_parameters
     cl$posterior <- x_rvar
     cl$rvar_col <- NULL
-    if (length(prior_rvar <- .possibly_extract_rvar_col(posterior, prior)) > 0L) {
+    prior_rvar <- .possibly_extract_rvar_col(posterior, prior)
+    if (length(prior_rvar) > 0L) {
       cl$prior <- prior_rvar
     }
     out <- eval.parent(cl)

R/bayesfactor_restricted.R

@@ -117,7 +117,7 @@
 #' Retrieved from https://richarddmorey.org/category/order-restrictions/.
 #'
 #' @export
-bayesfactor_restricted <- function(posterior, hypothesis, prior = NULL, verbose = TRUE, ...) {
+bayesfactor_restricted <- function(posterior, ...) {
   UseMethod("bayesfactor_restricted")
 }
 
@@ -198,12 +198,14 @@ bayesfactor_restricted.comparisons <- bayesfactor_restricted.emmGrid
 #' @rdname bayesfactor_restricted
 #' @inheritParams p_direction
 bayesfactor_restricted.data.frame <- function(posterior, hypothesis, prior = NULL, rvar_col = NULL, ...) {
-  if (length(x_rvar <- .possibly_extract_rvar_col(posterior, rvar_col)) > 0L) {
+  x_rvar <- .possibly_extract_rvar_col(posterior, rvar_col)
+  if (length(x_rvar) > 0L) {
     cl <- match.call()
     cl[[1]] <- bayestestR::bayesfactor_restricted
     cl$posterior <- x_rvar
     cl$rvar_col <- NULL
-    if (length(prior_rvar <- .possibly_extract_rvar_col(posterior, prior)) > 0L) {
+    prior_rvar <- .possibly_extract_rvar_col(posterior, prior)
+    if (length(prior_rvar) > 0L) {
       cl$prior <- prior_rvar
     }
     return(eval.parent(cl))

R/p_direction.R

@@ -207,7 +207,8 @@ p_direction.data.frame <- function(x,
                                    rvar_col = NULL,
                                    ...) {
   obj_name <- insight::safe_deparse_symbol(substitute(x))
-  if (length(x_rvar <- .possibly_extract_rvar_col(x, rvar_col)) > 0L) {
+  x_rvar <- .possibly_extract_rvar_col(x, rvar_col)
+  if (length(x_rvar) > 0L) {
     cl <- match.call()
     cl[[1]] <- bayestestR::p_direction
     cl$x <- x_rvar

R/p_rope.R

@@ -41,7 +41,8 @@ p_rope.numeric <- function(x, range = "default", verbose = TRUE, ...) {
 #' @rdname p_rope
 #' @inheritParams p_direction
 p_rope.data.frame <- function(x, range = "default", rvar_col = NULL, verbose = TRUE, ...) {
-  if (length(x_rvar <- .possibly_extract_rvar_col(x, rvar_col)) > 0L) {
+  x_rvar <- .possibly_extract_rvar_col(x, rvar_col)
+  if (length(x_rvar) > 0L) {
     cl <- match.call()
     cl[[1]] <- bayestestR::p_rope
     cl$x <- x_rvar