From d84b4fff1f898d0934d9089372517ec352f77f0a Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Mon, 14 Oct 2024 10:12:14 +0000 Subject: [PATCH] [skip style] [skip vbump] Restyle files --- R/Data-methods.R | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/R/Data-methods.R b/R/Data-methods.R index 26678321e..81900ca7b 100644 --- a/R/Data-methods.R +++ b/R/Data-methods.R @@ -1002,18 +1002,18 @@ setMethod( values_fill = 0 ) if (nrow(y) > 0) { - y <- y %>% - dplyr::mutate( - dplyr::across(tidyselect::matches("Cat\\d+"), \(x) x > 0) - ) %>% - dplyr::rowwise() %>% - dplyr::mutate( - AnyTox = any(dplyr::across(c(tidyselect::starts_with("Cat"), -Cat0), any)), - # Direct assignment fails on GitHub - Cat0 = !AnyTox - ) %>% - dplyr::select(-AnyTox) %>% - dplyr::ungroup() + y <- y %>% + dplyr::mutate( + dplyr::across(tidyselect::matches("Cat\\d+"), \(x) x > 0) + ) %>% + dplyr::rowwise() %>% + dplyr::mutate( + AnyTox = any(dplyr::across(c(tidyselect::starts_with("Cat"), -Cat0), any)), + # Direct assignment fails on GitHub + Cat0 = !AnyTox + ) %>% + dplyr::select(-AnyTox) %>% + dplyr::ungroup() } y <- y %>% h_tidy_class(x) y