Merge pull request #12 from jhudsl/cansavvy/owd-error

Get rid of setwd() bits
jhudsl · Aug 25, 2021 · bba0fc8 · bba0fc8
2 parents e648ebd + 35881cc
commit bba0fc8
Showing 1 changed file with 2 additions and 10 deletions.
diff --git a/R/bookdown_to_leanpub.R b/R/bookdown_to_leanpub.R
@@ -108,11 +108,7 @@ bookdown_to_leanpub = function(path = ".",
   rmd_regex = "[.][R|r]md$"
 
   path = bookdown_path(path)
-  owd = getwd()
-  setwd(path)
-  on.exit({
-    setwd(owd)
-  })
+
   rmd_files = bookdown_rmd_files(path = path)
   if (render) {
     if (verbose) {
@@ -233,11 +229,7 @@ bookdown_to_book_txt = function(
   rm(list = c("full_file", "index"))
 
   path = bookdown_path(path)
-  owd = getwd()
-  setwd(path)
-  on.exit({
-    setwd(owd)
-  })
+
   rmd_regex = "[.][R|r]md$"
   rmd_files = bookdown_rmd_files(path = path)
   md_files = sub(rmd_regex, ".md", rmd_files, ignore.case = TRUE)