Use 'help_functions.R' file

richelbilderbeek · Jul 17, 2024 · 4188886 · 4188886
1 parent 0ad7da0
commit 4188886
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 24 deletions.
diff --git a/definition.md → definitions.md b/definition.md → definitions.md
diff --git a/scripts/check_all_chapters_code_impl.R b/scripts/check_all_chapters_code_impl.R
@@ -9,19 +9,7 @@ if (!stringr::str_detect(pwd, "bevy_tdd_book$")) {
   }
 }
 
-source("scripts/helper_functions.R")
-
-/*
-get_all_chapter_filenames <- function() {
-  all_md_files <- list.files(pattern = "md")
-  md_files <- stringr::str_subset(all_md_files, "[A-Z]", negate = TRUE) 
-  md_files <- stringr::str_subset(md_files, "faq.md", negate = TRUE) 
-  md_files <- stringr::str_subset(md_files, "definitions.md", negate = TRUE) 
-  md_files <- stringr::str_subset(md_files, "introduction.md", negate = TRUE) 
-  md_files <- stringr::str_subset(md_files, "functions.md", negate = TRUE) 
-  md_files
-}
-*/
+source(file.path("scripts/helper_functions.R"))
 
 chapter_filenames <- get_all_chapter_filenames()
 

diff --git a/scripts/clone_all_chapters_impl.R b/scripts/clone_all_chapters_impl.R
@@ -13,16 +13,6 @@ source("scripts/helper_functions.R")
 
 md_files <- get_all_chapter_filenames()
 
-/*
-all_md_files <- list.files(pattern = "md")
-md_files <- stringr::str_subset(all_md_files, "[A-Z]", negate = TRUE) 
-md_files <- stringr::str_subset(md_files, "faq.md", negate = TRUE) 
-md_files <- stringr::str_subset(md_files, "definitions.md", negate = TRUE) 
-md_files <- stringr::str_subset(md_files, "introduction.md", negate = TRUE) 
-md_files <- stringr::str_subset(md_files, "functions.md", negate = TRUE) 
-md_files
-*/
-
 chapter_names <- stringr::str_sub(md_files, end = -4)
 
 message(paste0("Going up one folder"))

diff --git a/scripts/helper_functions.R b/scripts/helper_functions.R
@@ -1,6 +1,6 @@
 
 get_all_chapter_filenames <- function() {
-  if (!stringr::str_detect(pwd, "bevy_tdd_book$")) {
+  if (!stringr::str_detect(getwd(), "bevy_tdd_book$")) {
     stop("Run this script in the 'bevy_tdd_book' folder")
   }