Skip to content

Commit

Permalink
code style
Browse files Browse the repository at this point in the history
  • Loading branch information
strengejacke committed Oct 13, 2023
1 parent 95ebd50 commit 0d8b587
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions R/get_data.R
Original file line number Diff line number Diff line change
Expand Up @@ -2168,10 +2168,10 @@ get_data.rma <- function(x,
mf_attr[c("yi.names", "vi.names", "digits", "class")]
)
if (isTRUE(include_interval)) {
model_response <- tryCatch(mf[[find_response(x)]], error = function(x) NULL)
sei <- tryCatch(mf[[model_call$sei]], error = function(x) NULL)
model_response <- .safe(mf[[find_response(x)]])
sei <- .safe(mf[[model_call$sei]])
if (is.null(sei)) {
sei <- tryCatch(sqrt(mf[[model_call$vi]]), error = function(x) NULL)
sei <- .safe(sqrt(mf[[model_call$vi]]))
}
if (is.null(sei)) {
format_error("Could not find `sei` or `vi` for this model.")
Expand Down

0 comments on commit 0d8b587

Please sign in to comment.