Merge pull request #2 from samuelbharti/dev

Soft pull

.gitignore

@@ -7,3 +7,4 @@ dev.R
 test_install
 inst/doc
 docs
+dev_untrack.R

DESCRIPTION

@@ -15,5 +15,6 @@ Suggests:
 VignetteBuilder: knitr
 Roxygen: list(markdown = TRUE)
 Imports: 
-    lifecycle
+    lifecycle,
+    rstudioapi
 URL: http://www.samuelbharti.com/peacock/

R/init_changelog_md.R

@@ -0,0 +1,61 @@
+#' A changelog markdown template to document project progress
+#'
+#' @param path Path where markdown file is created
+#' @param confirm Confirm path; logical input.
+#'
+#' @return Return markdown file in specified or current working directory
+#' @export
+#'
+#' @examples
+#' init_changelog_md()
+init_changelog_md <- function(path = getwd(), confirm = TRUE){
+
+
+  # Display a message before the prompt
+  cat("You current working directory will be:\n")
+  cat(path)
+
+  if(confirm){
+    user_input <- tolower(
+      readline(
+        prompt = "Do you wish to create a Change log MD here? (y/yes to confirm): "
+      )
+    )
+  }else{
+    user_input <- "y"
+  }
+
+
+  # Check if the user input is 'y' or 'yes'
+  if (user_input %in% c("y", "yes")) {
+    wd_path <- path
+
+    markdown_content <- "
+# CHANGELOG
+
+``` txt
+YYYY-MM-DD  John Doe
+
+* Big Change 1
+* Another Change 2
+```
+    "
+    aa <- file.path(wd_path,"CHANGELOG.md")
+    file.create(aa, showWarnings = FALSE)
+
+    if(file.exists(aa)){
+      fileConn <- file(aa)
+
+      writeLines(
+        markdown_content,
+        fileConn
+      )
+      close(fileConn)
+
+    }
+
+  } else {
+    cat("Change log MD initialization canceled.\n")
+  }
+
+}

R/init_shiny.R

@@ -7,18 +7,23 @@
 #' #proj_shiny_init()
 #'
 #' @export
-init_shiny <- function(path = getwd()){
+init_shiny <- function(path = getwd(), confirm = TRUE){
 
 
   # Display a message before the prompt
   cat("You current working directory will be:\n")
   cat(path)
 
-  user_input <- tolower(
-    readline(
-    prompt = "Do you wish to create a project template here? (y/yes to confirm): "
-    )
+  if(confirm){
+    user_input <- tolower(
+      readline(
+        prompt = "Do you wish to create a project template here? (y/yes to confirm): "
+      )
     )
+  }else{
+    user_input <- "y"
+  }
+
 
   # Check if the user input is 'y' or 'yes'
   if (user_input %in% c("y", "yes")) {

R/init_template.R

@@ -7,17 +7,22 @@
 #' @export
 #'
 #' @examples
-init_template <- function(template_name, path) {
+#' init_template("shiny",getwd())
+init_template <- function(template_name, path = getwd(), confirm = TRUE) {
 
   # Display a message before the prompt
   cat("You current working directory will be:\n")
   cat(path)
 
-  user_input <- tolower(
-    readline(
-      prompt = "Do you wish to create a project template here? (y/yes to confirm): "
+  if(confirm){
+    user_input <- tolower(
+      readline(
+        prompt = "Do you wish to create a project template here? (y/yes to confirm): "
+      )
     )
-  )
+  }else{
+    user_input <- "y"
+  }
 
   if (user_input %in% c("y", "yes")) {
 

_pkgdown.yml

@@ -1,4 +1,4 @@
-url: https://www.samuelbharti.com/peacock/
+url: http://www.samuelbharti.com/peacock/
 template:
   bootstrap: 5
 

inst/markdown/templates/changelog_md_template/skeleton/skeleton.md

@@ -0,0 +1,8 @@
+# CHANGELOG
+
+``` txt
+YYYY-MM-DD  John Doe
+
+* Big Change 1
+* Another Change 2
+```

inst/markdown/templates/changelog_md_template/template.yaml

@@ -0,0 +1,3 @@
+name: "CHANGELOG MD"
+description: "A template to document project progress"
+create_dir: false

inst/rmarkdown/templates/changelog_template/skeleton/skeleton.Rmd

@@ -0,0 +1,22 @@
+---
+title: "[Project Name] Changelog"
+author: "Author Name"
+date: "`r Sys.Date()`"
+output: html_document
+---
+
+```{r}
+print(paste0("Last updated: ",Sys.time()))
+```
+
+------------------------------------------------------------------------
+
+# CHANGELOG
+------------------------------------------------------------------------
+
+YYYY-MM-DD John Doe
+
+-   Big Change 1
+-   Another Change 2 
+- 
+

inst/rmarkdown/templates/changelog_template/template.yaml

@@ -0,0 +1,3 @@
+name: "CHANGELOG RMD"
+description: "A template to document project progress"
+create_dir: false

inst/rstudio/addins.dcf

@@ -0,0 +1,8 @@
+Name: Peacock: Shiny Template
+Description: Shiny project with pre-defined structure and files
+Binding: init_shiny
+Interactive: true
+Params:
+  confirm: FALSE
+
+

inst/rstudio/templates/project/init_shiny.dcf

@@ -0,0 +1,6 @@
+Binding: init_shiny
+Title: Peacock: Shiny Template
+Subtitle: Create a new Shiny app project
+Caption: Shiny project with pre-defined structure and files
+Params:
+  confirm: FALSE