| /dports/devel/R-cran-lintr/lintr/R/ |
| H A D | object_usage_linter.R | 119 line1 = viapply(funs, get_attr, "line1"),
120 line2 = viapply(funs, get_attr, "line2"),
121 col1 = viapply(funs, get_attr, "col1"),
122 col2 = viapply(funs, get_attr, "col2"),
|
| H A D | utils.R | 175 viapply <- function(x, ...) vapply(x, ..., FUN.VALUE = integer(1)) function
|
| /dports/devel/R-cran-pkgcache/pkgcache/tests/testthat/ |
| H A D | test-utils.R | 13 viapply(l, length)
17 viapply(list(), length)
19 expect_error(viapply(l, identity), "values must be length 1")
20 expect_error(viapply(letters, identity), "values must be type .*integer")
|
| /dports/devel/R-cran-cli/cli/tests/testthat/ |
| H A D | test-utils.R | 17 viapply(c("foo", "foobar"), length),
22 viapply(character(), length),
|
| /dports/devel/R-cran-pkgcache/pkgcache/R/ |
| H A D | utils.R | 10 viapply <- function(X, FUN, ...) { function
32 lens <- setdiff(unique(viapply(data, length)), 1L)
|
| H A D | aaa-async.R | 459 afrm <- viapply(frm, "[[", "frame")
474 res$def_id[afrm] <- viapply(frm, function(x) x$deferred)
1390 parents = I(list(viapply(private$parents, function(x) get_private(x)$id))),
1393 children = I(list(viapply(private$children, function(x) get_private(x)$id))),
2267 len <- viapply(private$lsts, length)
3905 viapply <- function(X, FUN, ..., FUN.VALUE = integer(1)) { function
4286 fd <- viapply(sess, function(x) conn_get_fileno(x$get_poll_connection()))
4291 pid = viapply(sess, function(x) x$get_pid()),
|
| H A D | packages-gz.R | 243 num_pkgs <- viapply(pkgslist, function(x) nrow(x$pkgs), USE.NAMES = FALSE)
|
| H A D | archive.R | 385 lens <- viapply(archive, nrow)
|
| H A D | metadata-cache.R | 353 stat <- viapply(ret, function(x) x$response$status_code %||% 304L)
|
| /dports/devel/R-cran-cli/cli/R/ |
| H A D | spinner.R | 333 num_frames <- viapply(frames, length)
334 spin_width <- viapply(frames, function(x) max(nchar(x, type = "width")))
|
| H A D | aaa-utils.R | 97 viapply <- function(X, FUN, ..., USE.NAMES = TRUE) { function
|
| H A D | containers.R | 67 bottom <- max(viapply(
|
| /dports/devel/R-cran-cpp11/cpp11/R/ |
| H A D | utils.R | 20 viapply <- function(x, f, ...) vapply(x, f, integer(1), ...) function
|
| H A D | register.R | 81 n_args = viapply(funs$args, nrow)
|
| /dports/devel/R-cran-pkgcache/pkgcache/tests/async/ |
| H A D | test-worker-pool.R | 47 pids <- viapply(res, "[[", "result")
|
| H A D | test-call-function.R | 43 expect_true(is.integer(viapply(res, "[[", "result")))
|
| /dports/devel/R-cran-remotes/remotes/R/ |
| H A D | parse-git.R | 104 params <- params[viapply(params, nchar) > 0]
|
| H A D | utils.R | 8 viapply <- function(X, FUN, ..., USE.NAMES = TRUE) { function
|
| /dports/devel/R-cran-covr/covr/R/ |
| H A D | utils.R | 10 x[viapply(x, length) != 0]
340 viapply <- function(X, FUN, ...) vapply(X, FUN, ..., FUN.VALUE = integer(1)) function
|
| H A D | summary_functions.R | 209 viapply(mrks, `[[`, "line"),
|
| /dports/devel/R-cran-remotes/remotes/inst/ |
| H A D | install-github.R | 4878 params <- params[viapply(params, nchar) > 0]
5179 viapply <- function(X, FUN, ..., USE.NAMES = TRUE) { function
|