Displaying 1 result from an estimated 1 matches for "origline".
Did you mean:
origine
2024 Feb 07
1
[EXTERNAL] Re: NOTE: multiple local function definitions for ?fun? with different formal arguments
...prev <- nrow(allnames)
allnames <- rbind(allnames, data.frame(name = names, filename =
basename(f), line = lines))
dups <- which(duplicated(allnames$name))
dups <- dups[dups > prev]
if (any(dups)) {
origfile <- character(length(dups))
origline <- numeric(length(dups))
for (i in seq_along(dups)) {
prev <- which(allnames$name == allnames$name[dups[i]])[1]
origfile[i] <- allnames$filename[prev]
origline[i] <- allnames$line[prev]
}
result <- rbind(result,...