update function (rename post qmd file)

FRBCesab · Dec 20, 2024 · 127d133 · 127d133
1 parent a20bde9
commit 127d133
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/create_post.R b/R/create_post.R
@@ -99,7 +99,7 @@ create_post <- function(title, date = NULL) {
   yaml <- paste0(yaml, collapse = "\n")
 
   post_dir <- file.path("posts", slug)
-  post_qmd <- file.path("posts", slug, paste0(slug, ".qmd"))
+  post_qmd <- file.path("posts", slug, "index.qmd")
 
 
   ## Create post folder ----
@@ -122,7 +122,7 @@ create_post <- function(title, date = NULL) {
 
   ## Opening .qmd file ----
 
-  file.edit(file.path("posts", slug, paste0(slug, ".qmd")))
+  file.edit(file.path("posts", slug, "index.qmd"))
 
 
   invisible(NULL)