fix example for non-default rdocdir

git-svn-id: https://svn.r-project.org/R/trunk@88252 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: smeyer

src/library/base/man/regmatches.Rd

@@ -123,7 +123,7 @@ z
 
 ## With `perl = TRUE` and `invert = FALSE` capture group names
 ## are preserved.  Collect functions and arguments in calls:
-NEWS <- head(readLines(file.path(R.home(), 'doc', 'NEWS.2')), 100)
+NEWS <- head(readLines(file.path(R.home("doc"), "NEWS.2")), 100)
 m <- gregexec("(?<fun>\\\\w+)\\\\((?<args>[^)]*)\\\\)", NEWS, perl = TRUE)
 y <- regmatches(NEWS, m)
 y[[16]]