Fix GitHub test failure

openpharma · Oct 4, 2024 · 3e49b24 · 3e49b24
1 parent b4f6c7e
commit 3e49b24
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/Data-methods.R b/R/Data-methods.R
@@ -1006,10 +1006,11 @@ setMethod(
       ) %>%
       dplyr::rowwise() %>%
       dplyr::mutate(
-        Tmp = !any(dplyr::across(c(tidyselect::starts_with("Cat"), -Cat0), any)),
+        AnyTox = any(dplyr::across(c(starts_with("Cat"), -Cat0), any)),
         # Direct assignment fails on GitHub
-        Cat0 = Tmp
+        Cat0 = !AnyTox
       ) %>%
+      dplyr::select(-AnyTox) %>%
       dplyr::ungroup() %>%
       h_tidy_class(x)
   }