issue 58 : aesthetic function names added to end of each script

lockedata · Nov 22, 2018 · a737f38 · a737f38
1 parent f4b6d1f
commit a737f38
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 0 deletions.
diff --git a/R/createAnalysisProject.R b/R/createAnalysisProject.R
@@ -60,3 +60,6 @@ createAnalysisProject <- function(name, title = NULL,
   reset_proj(current_proj)
   invisible(TRUE)
 }
+
+#' @describeIn createAnalysisProject
+create_analysis_project = createAnalysisProject
diff --git a/R/createBasicProject.R b/R/createBasicProject.R
@@ -126,3 +126,6 @@ createBasicProject <- function(name,
 
   invisible(TRUE)
 }
+
+#' @describeIn createBasicProject
+create_basic_project = createBasicProject
diff --git a/R/createPackageProject.R b/R/createPackageProject.R
@@ -151,3 +151,6 @@ createPackageProject <- function(name, title = NULL,
   reset_proj(current_proj)
   invisible(TRUE)
 }
+
+#' @describeIn createPackageProject
+create_package_project = createPackageProject
diff --git a/R/createTrainingProject.R b/R/createTrainingProject.R
@@ -148,3 +148,6 @@ handoutEngine <- function() {
 slideEngine <- function() {
   c("rmarkdown", "revealjs", "xaringan")
 }
+
+#' @describeIn createTrainingProject
+create_training_project = createTrainingProject