Update template dcf and function param

R/init_shiny.R

@@ -7,21 +7,21 @@
 #' #proj_shiny_init()
 #'
 #' @export
-init_shiny <- function(path = getwd(), confirm = FALSE){
+init_shiny <- 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 <- "y"
-  }else{
     user_input <- tolower(
       readline(
         prompt = "Do you wish to create a project template here? (y/yes to confirm): "
       )
     )
+  }else{
+    user_input <- "y"
   }
 
 

R/init_template.R

@@ -8,20 +8,20 @@
 #'
 #' @examples
 #' init_template("shiny",getwd())
-init_template <- function(template_name, path, confirm = FALSE) {
+init_template <- function(template_name, path, confirm = TRUE) {
 
   # Display a message before the prompt
   cat("You current working directory will be:\n")
   cat(path)
 
   if(confirm){
-    user_input <- "y"
-  }else{
     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")) {

inst/rstudio/templates/project/init_shiny.dcf

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