Получить построчный минимум определенных столбцов, исключая 0 и NA

Я сделал очень сложное решение для чего-то, что, по моему мнению, должно иметь гораздо более простое решение. Вкратце, что я хочу:

• Я хочу вычислить новый столбец, содержащий минимальное значение в 3 столбцах.
• Я хочу игнорировать нули и NA
• Если у меня есть только нули и NA, я хочу ноль
• Если у меня есть только NA, я хочу NA

Вот мое решение, оно работает, но очень сложно и выдает предупреждение.

> library(dplyr)

> df <- data.frame(
+   id = c(1, 2, 3, 4),
+   test1 = c( NA, NA, 2 , 3), 
+   test2 = c( NA, 0, 1 , 1), 
+   test3 = c(NA, NA, 0 , 2) 
+ )

> df2 <- df %>% 
+   mutate(nieuw = apply(across(test1:test3), 1, function(x) min(x[x>0]))) %>% 
+   rowwise() %>% 
+   mutate(nieuw = if_else(is.na(nieuw), max(across(test1:test3), na.rm = TRUE), nieuw)) %>% 
+   mutate(nieuw = ifelse(is.infinite(nieuw), NA, nieuw))

> df
  id test1 test2 test3
1  1    NA    NA    NA
2  2    NA     0    NA
3  3     2     1     0
4  4     3     1     2

> df2
# A tibble: 4 x 5
# Rowwise: 
     id test1 test2 test3 nieuw
  <dbl> <dbl> <dbl> <dbl> <dbl>
1     1    NA    NA    NA    NA
2     2    NA     0    NA     0
3     3     2     1     0     1
4     4     3     1     2     1
Warning message:
Problem while computing `nieuw = if_else(...)`.
i no non-missing arguments to max; returning -Inf
i The warning occurred in row 1.