fix file path issue in add_to_gitignore

Author: maRce10

.gitignore

@@ -2,3 +2,4 @@
 .Rhistory
 .RData
 .Ruserdata
+*.gz

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: sketchy
 Type: Package
 Title: Create Custom Research Compendiums  
-Version: 1.0.4
+Version: 1.0.5
 Maintainer: Marcelo Araya-Salas <marcelo.araya@ucr.ac.cr>
 Description: Provides functions to create and manage research compendiums for data analysis. Research compendiums are a standard and intuitive folder structure for organizing the digital materials of a research project, which can significantly improve reproducibility. The package offers several compendium structure options that fit different research project as well as the ability of duplicating the folder structure of existing projects or implementing custom structures. It also simplifies the use of version control.
 License: GPL (>= 2)

NEWS.md

@@ -1,3 +1,10 @@
+sketchy 1.0.5
+=========================
+
+### BUG FIXES
+
+* Problem with directory path in Windows OS in `add_to_gitignore()` 
+
 sketchy 1.0.4
 =========================
 

R/add_to_gitignore.R

@@ -32,6 +32,9 @@
 
 add_to_gitignore <- function(add.to.gitignore = FALSE, cutoff = NULL, extension = NULL, path = "."){
 
+  # ensure the path is in the correct format for your system
+  path <- normalizePath(path)
+
   if (is.null(cutoff) & is.null(extension))
     .stop("'cutoff' and/or 'extension' must be supplied")
 
@@ -60,7 +63,7 @@ add_to_gitignore <- function(add.to.gitignore = FALSE, cutoff = NULL, extension
     files_found <- file_size_df$file.path[file_size_df$file_size_Mb > cutoff]
 
     # remove project directory
-    files_found <- gsub(path, "", files_found)
+    files_found <- basename(files_found)
 
     # remove ./
     files_found <- gsub("^./", "", files_found)

examples/analysis_template_quarto.html

@@ -343,7 +343,7 @@ rm(list = setdiff(ls(), c(lsf.str(), "FUN")))
 # rm(i)
 
 #tests  
-repo_name <- "repoQ"
+repo_name <- "repoQX"
 
 data("compendiums")
 load("~/Dropbox/R_package_testing/sketchy/R/sysdata.rda")