aspell_R_vignettes() gains a 'dir' argument.

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

Author: hornik

src/library/utils/R/aspell.R

@@ -668,10 +668,11 @@ aspell_control_R_vignettes <-
          c("-t", "-d en_US,en_GB"))
 
 aspell_R_vignettes <-
-function(program = NULL,
+function(program = NULL, dir = NULL,
          dictionaries = c(aspell_dictionaries_R, "R_vignettes"))
 {
-    files <- Sys.glob(file.path(tools:::.R_top_srcdir_from_Rd(),
+    if(is.null(dir)) dir <- tools:::.R_top_srcdir_from_Rd()    
+    files <- Sys.glob(file.path(dir,
                                 "src", "library", "*", "vignettes",
                                 "*.Rnw"))