src/library/tools/tests/undoc.R - R - Git at Google

 require("tools")

 (ud4 <- undoc("stats4"))
 stopifnot(sapply(ud4, length) == 0)
	require("tools")

	(ud4 <- undoc("stats4"))
	stopifnot(sapply(ud4, length) == 0)