Skip to content

Commit

Permalink
Update test_kit.Rout.save
Browse files Browse the repository at this point in the history
  • Loading branch information
@2005m
2005m committed Oct 26, 2022
1 parent 2de3b68 commit 7a4dc9b
Showing 1 changed file with 29 additions and 29 deletions.
58 changes: 29 additions & 29 deletions tests/test_kit.Rout.save
View file
Original file line number Diff line number Diff line change
Expand Up @@ -709,10 +709,10 @@ Attaching kit 0.0.12 (OPENMP enabled using 1 thread)
> check("0005.002", psum(x, y, z, na.rm = TRUE), c(6, 7, 8, 7))
> check("0005.003", psum(as.integer(x), as.integer(y), as.integer(z), na.rm = FALSE), c(6L, NA_integer_, NA_integer_, 7L))
> check("0005.004", psum(as.integer(x), as.integer(y), as.integer(z), na.rm = TRUE), c(6L, 7L, 8L, 7L))
> check("0005.005", psum(as.raw(z), y, na.rm = TRUE), error = "Argument 1 is of type raw. Only integer, double and complex types are supported.Data.frame (of the previous types) is also supported as a single input.")
> check("0005.005", psum(as.raw(z), y, na.rm = TRUE), error = "Argument 1 is of type raw. Only integer/logical, double and complex types are supported. A data.frame (of the previous types) is also supported as a single input.")
> check("0005.006", psum(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.")
> check("0005.007", psum(1:10, 1:5, na.rm = FALSE), error = "Argument 2 is of length 5 but argument 1 is of length 10. If you wish to 'recycle' your argument, please use rep() to make this intent clear to the readers of your code.")
> check("0005.008", psum(x, as.raw(z), y, na.rm = TRUE), error = "Argument 2 is of type raw. Only integer, double and complex types are supported.")
> check("0005.008", psum(x, as.raw(z), y, na.rm = TRUE), error = "Argument 2 is of type raw. Only integer/logical, double and complex types are supported.")
> check("0005.009", psum(1:10, 1:10, 21:30), 1:10 + 1:10 + 21:30)
> check("0005.010", psum(x, y, z, na.rm = NA), error = "Argument 'na.rm' must be TRUE or FALSE and length 1.")
> check("0005.011", psum(x, na.rm = FALSE), x)
Expand All @@ -731,7 +731,7 @@ Attaching kit 0.0.12 (OPENMP enabled using 1 thread)
> check("0005.024", psum(NA_real_, na.rm = TRUE), 0)
> check("0005.025", psum(NA_complex_, na.rm = TRUE), 0+0i)
> check("0005.026", psum(iris[,1:2]), rowSums(iris[,1:2]))
> check("0005.027", psum(iris[,1:2],iris[,1:2]), error = "Argument 1 is of type list. Only integer, double and complex types are supported.Data.frame (of the previous types) is also supported as a single input.")
> check("0005.027", psum(iris[,1:2],iris[,1:2]), error = "Argument 1 is of type list. Only integer/logical, double and complex types are supported. A data.frame (of the previous types) is also supported as a single input.")
> check("0005.028", psum(1:150,iris$Species, na.rm = FALSE), error="Function 'psum' is not meaningful for factors.")
> check("0005.029", psum(unclass(mtcars)),psum(mtcars))
>
Expand All @@ -743,10 +743,10 @@ Attaching kit 0.0.12 (OPENMP enabled using 1 thread)
> check("0006.002", pprod(x, y, z, na.rm = TRUE), c(6, 12, 16, 5))
> check("0006.003", pprod(as.integer(x), as.integer(y), as.integer(z), na.rm = FALSE), c(6L, NA_integer_, NA_integer_, 5L))
> check("0006.004", pprod(as.integer(x), as.integer(y), as.integer(z), na.rm = TRUE), c(6L, 12L, 16L, 5L))
> check("0006.005", pprod(as.raw(z), y, na.rm = TRUE), error = "Argument 1 is of type raw. Only integer, double and complex types are supported.Data.frame (of the previous types) is also supported as a single input.")
> check("0006.005", pprod(as.raw(z), y, na.rm = TRUE), error = "Argument 1 is of type raw. Only integer/logical, double and complex types are supported. A data.frame (of the previous types) is also supported as a single input.")
> check("0006.006", pprod(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.")
> check("0006.007", pprod(1:10, 1:5, na.rm = FALSE), error = "Argument 2 is of length 5 but argument 1 is of length 10. If you wish to 'recycle' your argument, please use rep() to make this intent clear to the readers of your code.")
> check("0006.008", pprod(x, as.raw(z), y, na.rm = TRUE), error = "Argument 2 is of type raw. Only integer, double and complex types are supported.")
> check("0006.008", pprod(x, as.raw(z), y, na.rm = TRUE), error = "Argument 2 is of type raw. Only integer/logical, double and complex types are supported.")
> check("0006.009", pprod(1:10, 1:10, 21:30), 1:10 * 1:10 * 21:30)
> check("0006.010", pprod(x, y, z, na.rm = NA), error = "Argument 'na.rm' must be TRUE or FALSE and length 1.")
> check("0006.011", pprod(x, na.rm = FALSE), x)
Expand All @@ -765,7 +765,7 @@ Attaching kit 0.0.12 (OPENMP enabled using 1 thread)
> check("0006.024", pprod(NA_real_, na.rm = TRUE), 1)
> check("0006.025", pprod(NA_complex_, na.rm = TRUE), 1+0i)
> check("0006.026", pprod(iris[,1:2]), iris$Sepal.Length*iris$Sepal.Width)
> check("0006.027", pprod(iris[,1:2],iris[,1:2]), error = "Argument 1 is of type list. Only integer, double and complex types are supported.Data.frame (of the previous types) is also supported as a single input.")
> check("0006.027", pprod(iris[,1:2],iris[,1:2]), error = "Argument 1 is of type list. Only integer/logical, double and complex types are supported. A data.frame (of the previous types) is also supported as a single input.")
> check("0006.028", pprod(1:150,iris$Species, na.rm = FALSE), error="Function 'pprod' is not meaningful for factors.")
> check("0006.029", pprod(unclass(mtcars)),pprod(mtcars))
>
Expand Down Expand Up @@ -1122,10 +1122,10 @@ Attaching kit 0.0.12 (OPENMP enabled using 1 thread)
>
> check("0011.001", pmean(x, y, z, na.rm = FALSE), sapply(1:4, function(i) mean(c(x[i], y[i], z[i]), na.rm = FALSE)))
> check("0011.002", pmean(x, y, z, na.rm = TRUE), sapply(1:4, function(i) mean(c(x[i], y[i], z[i]), na.rm = TRUE)))
> check("0011.003", pmean(as.raw(z), y, na.rm = TRUE), error = "Argument 1 is of type raw. Only integer and double types are supported.Data.frame (of the previous types) is also supported as a single input.")
> check("0011.003", pmean(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("0011.004", pmean(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.")
> check("0011.005", pmean(1:10, 1:5, na.rm = FALSE), error = "Argument 2 is of length 5 but argument 1 is of length 10. If you wish to 'recycle' your argument, please use rep() to make this intent clear to the readers of your code.")
> check("0011.006", pmean(x, as.raw(z), y, na.rm = TRUE), error = "Argument 2 is of type raw. Only integer and double types are supported.")
> check("0011.006", pmean(x, as.raw(z), y, na.rm = TRUE), error = "Argument 2 is of type raw. Only integer/logical and double types are supported.")
> check("0011.007", pmean(x, y, z, na.rm = NA), error = "Argument 'na.rm' must be TRUE or FALSE and length 1.")
> check("0011.008", pmean(x, na.rm = FALSE), sapply(1:4, function(i) mean(c(x[i]), na.rm = FALSE)))
> check("0011.009", pmean(c(1,3,NA,5,NA), c(2,NA,4,1,NA), na.rm = TRUE), sapply(1:5, function(i) mean(c(c(1,3,NA,5,NA)[i], c(2,NA,4,1,NA)[i]), na.rm = TRUE)))
Expand Down Expand Up @@ -1761,7 +1761,7 @@ Attaching kit 0.0.12 (OPENMP enabled using 1 thread)
> check("0027.005", panyNA(x), c(FALSE, FALSE, TRUE, FALSE))
>
> rm(v,w,x,y,z,f1,d1)
>
>
> # --------------------------------------------------------------------------------------------------
> # pfirst and plast
> # --------------------------------------------------------------------------------------------------
Expand All @@ -1774,27 +1774,27 @@ Attaching kit 0.0.12 (OPENMP enabled using 1 thread)
> z1 = sample(c("e","f",NA),1e2,TRUE)
>
> base_pfirst <- function(...) {
> x = if(...length() == 1L && is.list(..1)) unclass(..1) else list(...)
> res = x[[1]]
> if(length(x) == 1L) return(res)
> for(i in 2:length(x)) {
> miss <- is.na(res)
> res[miss] <- x[[i]][miss]
> }
> res
> }
+ x = if(...length() == 1L && is.list(..1)) unclass(..1) else list(...)
+ res = x[[1]]
+ if(length(x) == 1L) return(res)
+ for(i in 2:length(x)) {
+ miss <- is.na(res)
+ res[miss] <- x[[i]][miss]
+ }
+ res
+ }
>
> base_plast <- function(...) {
> x = if(...length() == 1L && is.list(..1)) unclass(..1) else list(...)
> n = length(x)
> res = x[[n]]
> if(n == 1L) return(res)
> for(i in (n-1):1) {
> miss <- is.na(res)
> res[miss] <- x[[i]][miss]
> }
> res
> }
+ x = if(...length() == 1L && is.list(..1)) unclass(..1) else list(...)
+ n = length(x)
+ res = x[[n]]
+ if(n == 1L) return(res)
+ for(i in (n-1):1) {
+ miss <- is.na(res)
+ res[miss] <- x[[i]][miss]
+ }
+ res
+ }
>
> check("0028.001", pfirst(x, y, z), base_pfirst(x, y, z))
> check("0028.002", plast(x, y, z), base_plast(x, y, z))
Expand Down Expand Up @@ -1843,4 +1843,4 @@ Attaching kit 0.0.12 (OPENMP enabled using 1 thread)
>
> proc.time()
user system elapsed
4.251 0.614 4.957
4.188 0.501 4.694

0 comments on commit 7a4dc9b

Please sign in to comment.