Minors.

Author: SebKrantz

tests/test_kit.R

@@ -769,7 +769,7 @@ check("0008.001", fpmin(x, y, z, na.rm = FALSE), c(1, NA, NA, 1))
 check("0008.002", fpmin(x, y, z, na.rm = TRUE), c(1, 3, 4, 1))
 check("0008.003", fpmin(as.integer(x), as.integer(y), as.integer(z), na.rm = FALSE), c(1L, NA_integer_, NA_integer_, 1L))
 check("0008.004", fpmin(as.integer(x), as.integer(y), as.integer(z), na.rm = TRUE), c(1L, 3L, 4L, 1L))
-check("0008.005", fpmin(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = FALSE), c(FALSE, NA, NA))
+check("0008.005", fpmin(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = FALSE), c(FALSE, FALSE, NA))
 check("0008.006", fpmin(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = TRUE), c(FALSE, FALSE, FALSE))
 check("0008.007", fpmin(as.raw(z), y, na.rm = TRUE), error = "Argument 1 is of type raw. Only integer/logical and double types are supported. A data.frame (of the previous types) is also supported as a single input.")
 check("0008.008", fpmin(x, y, 1:2, na.rm = FALSE), error = "Argument 3 is of length 2 but argument 1 is of length 4. If you wish to 'recycle' your argument, please use rep() to make this intent clear to the readers of your code.")
@@ -790,7 +790,7 @@ check("0009.001", fpmax(x, y, z, na.rm = FALSE), c(3, NA, NA, 5))
 check("0009.002", fpmax(x, y, z, na.rm = TRUE), c(3, 4, 4, 5))
 check("0009.003", fpmax(as.integer(x), as.integer(y), as.integer(z), na.rm = FALSE), c(3L, NA_integer_, NA_integer_, 5L))
 check("0009.004", fpmax(as.integer(x), as.integer(y), as.integer(z), na.rm = TRUE), c(3L, 4L, 4L, 5L))
-check("0009.005", fpmax(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = FALSE), c(TRUE, NA, NA))
+check("0009.005", fpmax(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = FALSE), c(TRUE, TRUE, NA))
 check("0009.006", fpmax(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = TRUE), c(TRUE, TRUE, FALSE))
 check("0009.007", fpmax(as.raw(z), y, na.rm = TRUE), error = "Argument 1 is of type raw. Only integer/logical and double types are supported. A data.frame (of the previous types) is also supported as a single input.")
 check("0009.008", fpmax(x, y, 1:2, na.rm = FALSE), error = "Argument 3 is of length 2 but argument 1 is of length 4. If you wish to 'recycle' your argument, please use rep() to make this intent clear to the readers of your code.")
@@ -811,7 +811,7 @@ check("0010.001", prange(x, y, z, na.rm = FALSE), c(2, NA, NA, 4))
 check("0010.002", prange(x, y, z, na.rm = TRUE), c(2, 1, 0, 4))
 check("0010.003", prange(as.integer(x), as.integer(y), as.integer(z), na.rm = FALSE), c(2, NA, NA, 4))
 check("0010.004", prange(as.integer(x), as.integer(y), as.integer(z), na.rm = TRUE), c(2, 1, 0, 4))
-check("0010.005", prange(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = FALSE), c(1, NA, NA))
+check("0010.005", prange(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = FALSE), c(1, 1, NA))
 check("0010.006", prange(c(TRUE, FALSE, NA), c(FALSE, TRUE, FALSE), na.rm = TRUE), c(1, 1, 0))
 check("0010.007", prange(as.raw(z), y, na.rm = TRUE), error = "Argument 1 is of type raw. Only integer/logical and double types are supported. A data.frame (of the previous types) is also supported as a single input.")
 check("0010.008", prange(x, y, 1:2, na.rm = FALSE), error = "Argument 3 is of length 2 but argument 1 is of length 4. If you wish to 'recycle' your argument, please use rep() to make this intent clear to the readers of your code.")