max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added nargin function

Browse source
This commit is contained in:
Waldir Leoncio 2020-10-19 09:49:30 +02:00
parent 03089d7e42
commit 3250349c60
3 changed files with 43 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
R/nargin.R
View file

@ -3,9 +3,8 @@
#' @return An integer
#' @author Waldir Leoncio
#' @note This function only makes sense inside another function
#' @references https://stackoverflow.com/q/64422780/1169233
nargin <- function() {
# FIXME: returning 0 because it is using its own envir instead of parent's
print(parent.env(environment()))
length(as.list(match.call(envir = parent.env(environment())))) - 1
# length(ls(envir=parent.env(environment()))) - 1
}
if(sys.nframe() < 2) stop("must be called from inside a function")
length(as.list(sys.call(-1))) - 1
}