Bring back the setwd() call inside on.exit()

tdhock · Jul 7, 2021 · b4782d9 · b4782d9
1 parent dbc4c8d
commit b4782d9
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/doc.R b/R/doc.R
@@ -8,6 +8,7 @@ dldoc <- function # Make directlabels documentation
 ### Package directory root.
  ){
   odir <- setwd(pkgdir)
+  on.exit(setwd(odir))
   docdir <- file.path("tests","doc")
   docdirs <- dir(docdir)
   plotfiles <- sapply(docdirs,function(d)Sys.glob(file.path(docdir,d,"*.R")))