From 67036ae3e0ef4368e9f730f1b761c94707f97688 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Wed, 13 Sep 2023 13:02:37 +0200
Subject: [PATCH] Implement RStudio Project template initialization functino
---
R/create_LIC_project.R | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/R/create_LIC_project.R b/R/create_LIC_project.R
index 5289652..b90ccf2 100644
--- a/R/create_LIC_project.R
+++ b/R/create_LIC_project.R
@@ -25,15 +25,16 @@ create_LIC_project <- function(path, ...) {
lib.loc = lib.loc, mustWork = mustWork)
}
from <- LIC.src("LifeInsuranceContracts")
- copied_files <- fs::dir_copy(path = from, new_path = path, overwrite = TRUE)
+ fs::dir_copy(path = from, new_path = path, overwrite = TRUE)
########################################
##### 3. Rename all files with XXXCOMPANYXXX -> CompanyName
- LIC.replaceFilename <- function(...) {
-
- }
+ patternFiles = list.files(path = path, pattern = "XXXCOMPANYXXX", full.names = TRUE, recursive = TRUE)
+ replacementFiles = str_replace(patternFiles, "XXXCOMPANYXXX", CompanyName)
+ file.rename(patternFiles, replacementFiles)
+ copied_files <- list.files(path = path, recursive = TRUE)
########################################
--
GitLab