search for: sourceutil

...ction() { x <- 1:3 x <- foo(x, NULL) x } # this works fine testSrc() # this fails testNoSrc <- utils::removeSource(testSrc) testNoSrc() # removeSource removes NULL from the 'foo' call print(testNoSrc) --- I traced back the bug to this row in removeSource: (line 33 in sourceutils.R) part[[i]] <- recurse(part[[i]]) it should be (IMHO): part[i] <- list(recurse(part[[i]])) --- # create a function with the above patch rmSource <- function (fn) { stopifnot(is.function(fn)) if (is.primitive(fn)) return(fn) attr(fn, "srcref") <- NULL attr...