From b4782d9a1b5993aa269a49c45067d9f35b2e5135 Mon Sep 17 00:00:00 2001 From: Anirban166 Date: Wed, 7 Jul 2021 07:34:13 +0530 Subject: [PATCH] Bring back the setwd() call inside on.exit() --- R/doc.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/doc.R b/R/doc.R index 78cc1a4..529076c 100644 --- 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")))