From a0ffb7ee1ffc3c52b6a232f8eb44efa195701a38 Mon Sep 17 00:00:00 2001 From: Luna Fazio Date: Tue, 4 Jul 2023 12:16:44 +0200 Subject: [PATCH] add logical check and fix whitespace --- R/data-helpers.R | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/R/data-helpers.R b/R/data-helpers.R index 310abe1fd..ded6b62c5 100644 --- a/R/data-helpers.R +++ b/R/data-helpers.R @@ -618,11 +618,12 @@ validate_newdata2 <- function(newdata2, object, ...) { } # extract the current data -current_data <- function(object, newdata = NULL, skip_validate_data = FALSE, ...) { +current_data <- function(object, newdata = NULL, skip_validation = FALSE, ...) { stopifnot(is.brmsfit(object)) + skip_validation <- as_one_logical(skip_validation) if (is.null(newdata)) { data <- object$data - } else if(skip_validate_data) { + } else if (skip_validation) { data <- newdata } else { data <- validate_newdata(newdata, object = object, ...) @@ -631,11 +632,12 @@ current_data <- function(object, newdata = NULL, skip_validate_data = FALSE, ... } # extract the current data2 -current_data2 <- function(object, newdata2 = NULL, skip_validate_data = FALSE, ...) { +current_data2 <- function(object, newdata2 = NULL, skip_validation = FALSE, ...) { stopifnot(is.brmsfit(object)) + skip_validation <- as_one_logical(skip_validation) if (is.null(newdata2)) { data2 <- object$data2 - } else if(skip_validate_data) { + } else if (skip_validation) { data2 <- newdata2 } else { data2 <- validate_newdata2(newdata2, object = object, ...)