exclude readme and .gitignore from created template surveya

surveydown-dev · Aug 8, 2024 · ad444af · ad444af
1 parent ed36f04
commit ad444af
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/templates.R b/R/templates.R
@@ -54,6 +54,10 @@ sd_create_survey <- function(path = getwd(), template = "simple") {
     items_to_move <- list.files(unzipped_dir, all.files = TRUE, full.names = TRUE, no.. = TRUE)
     items_to_move <- items_to_move[!grepl("_extensions", items_to_move)]
 
+    # Exclude README.md and .gitignore
+    exclude_files <- c("README.md", ".gitignore")
+    items_to_move <- items_to_move[!basename(items_to_move) %in% exclude_files]
+
     for (item in items_to_move) {
         if (dir.exists(item)) {
             file.copy(item, path, recursive = TRUE)