Skip to content

Commit

Permalink
style
Browse files Browse the repository at this point in the history
  • Loading branch information
strengejacke committed Jul 13, 2024
1 parent d6efa47 commit 37daa8e
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions R/find_random.R
Original file line number Diff line number Diff line change
Expand Up @@ -54,7 +54,6 @@ find_random.default <- function(x, split_nested = FALSE, flatten = FALSE) {
l <- .find_random_effects(x, f, split_nested)
}


if (is_empty_object(l)) {
return(NULL)
}
Expand All @@ -76,7 +75,6 @@ find_random.afex_aov <- function(x, split_nested = FALSE, flatten = FALSE) {
}



.find_random_effects <- function(x, f, split_nested) {
if (!object_has_names(f, "random") && !object_has_names(f, "zero_inflated_random")) {
return(NULL)
Expand All @@ -100,7 +98,6 @@ find_random.afex_aov <- function(x, split_nested = FALSE, flatten = FALSE) {
r1 <- NULL
}


if (object_has_names(f, "zero_inflated_random")) {
if (is.list(f$zero_inflated_random)) {
r2 <- unique(unlist(
Expand All @@ -114,6 +111,5 @@ find_random.afex_aov <- function(x, split_nested = FALSE, flatten = FALSE) {
r2 <- NULL
}


compact_list(list(random = r1, zero_inflated_random = r2))
}

0 comments on commit 37daa8e

Please sign in to comment.