Displaying 1 result from an estimated 1 matches for "testnosrc2".
Did you mean:
testnosrc
2017 Dec 11
1
possible bug in utils::removeSource - NULL argument is silently dropped
...uot;wholeSrcref") <- NULL
attr(part, "srcfile") <- NULL
if (is.language(part) && is.recursive(part)) {
for (i in seq_along(part))
part[i] <- list(recurse(part[[i]]))
}
part
}
body(fn) <- recurse(body(fn))
fn
}
# test
( testNoSrc2 <- rmSource(testSrc) )
testNoSrc2()
Regards,
Denes