This commit is contained in:
Waldir Leoncio 2020-07-13 13:23:57 +02:00
parent cc9704489c
commit 5fdff9fee2
2 changed files with 6 additions and 6 deletions

View file

@ -2,9 +2,9 @@
#' @description Emulates behavior of `find`
#' @param x object or logic operation on an object
find <- function(x) {
if (is.logical(x)) {
return(which(x))
} else {
return(which(x > 0))
}
if (is.logical(x)) {
return(which(x))
} else {
return(which(x > 0))
}
}