R.utils (version 1.6.4)

findSourceTraceback: Finds all 'srcfile' objects generated by source() in all call frames

Usage

## S3 method for class 'default}(...)':
findSourceTracebackundefined

 Finds all 'srcfile' objects generated by source() in all call frames.  This makes it possible to find out which files are
   currently scripted by source().

 ...{Not used.}

 Returns a named list of objects of class 'srcfile'.
   The names of the list entries corresponds to the 'filename'
   value of each corresponding 'srcfile' object.
   The returned list is empty if source() was not called.

 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Create two R script files where one source():s the other
# and both lists the traceback of filenames source():d.
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
path <- tempdir();
pathnameA <- Arguments$getWritablePathname("foo.R", path=path);
pathnameB <- Arguments$getWritablePathname("bar.R", path=path);

code <- 'cat("BEGIN foo.R
")';
code <- c(code, 'print(findSourceTraceback());');
code <- c(code, sprintf('source("%s");', pathnameB));
code <- c(code, 'cat("END foo.R
")');
code <- paste(code, collapse="
");
cat(file=pathnameA, code);

code <- 'cat("BEGIN bar.R
")';
code <- c(code, 'print(findSourceTraceback());');
code <- c(code, 'cat("END bar.R
")');
code <- paste(code, collapse="
");
cat(file=pathnameB, code);


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Source the first file
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
source(pathnameA, echo=TRUE);

 [object Object]



IO
programming

Arguments