THIS IS A TEST INSTANCE ONLY! REPOSITORIES CAN BE DELETED AT ANY TIME!

Browse Source

CLEANUP: Don't specify arguments for NextMethod().

https://github.com/HenrikBengtsson/Wishlist-for-R/issues/44
feature/c
hb 3 years ago
parent
commit
b7f062c0e5
  1. 4
      R/listenv.R
  2. 2
      R/undim.R

4
R/listenv.R

@ -453,7 +453,7 @@ to_index <- function(x, idxs) {
i <- match(name, table = names(map))
if (is.na(i)) return(NULL)
} else if (!is.numeric(i)) {
return(NextMethod("[["))
return(NextMethod())
}
if (length(i) != 1L) {
@ -551,7 +551,7 @@ to_index <- function(x, idxs) {
if (length(i) < nmap) i <- rep(i, length.out = nmap)
i <- which(i)
} else {
return(NextMethod("["))
return(NextMethod())
}
## Nothing to do?

2
R/undim.R

@ -29,7 +29,7 @@ undim.default <- function(x, ...) { #nolint
#' @export
undim.listenv <- function(x, ...) { #nolint
x <- NextMethod("undim")
x <- NextMethod()
attr(x, "dim.") <- NULL
attr(x, "dimnames.") <- NULL
x

Loading…
Cancel
Save