fixed #116

dicook · dicook · commit 6d01968475d7 · 2025-02-10T14:24:42.000+11:00
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,6 @@
 # rjtools 1.0.18
 
-Fix issues #129, 132, 133, 134. Warnings instead of errors reported when potential problems with section headings and title given.
+Fix issues #116, 129, 132, 133, 134. Warnings instead of errors reported when potential problems with section headings and title given.
 
 # rjtools 1.0.17
 
diff --git a/R/rjournal_article.R b/R/rjournal_article.R
@@ -22,7 +22,7 @@ create_article <- function(name="test", file = xfun::with_ext(name, "Rmd"), crea
   )
 
   if(edit) {
-    path <- if(create_dir) {
+    path <- if (create_dir) {
       file.path(xfun::sans_ext(file), file)
     } else {
       file
@@ -40,6 +40,8 @@ create_article <- function(name="test", file = xfun::with_ext(name, "Rmd"), crea
     }
   }
 
+  if (create_dir)
+    setwd(name)
   fs::dir_create("data")
   fs::dir_create("figures")
   fs::file_move("penguins.png", "figures/penguins.png")

Original file line number	Diff line number	Diff line change
`@@ -22,7 +22,7 @@ create_article <- function(name="test", file = xfun::with_ext(name, "Rmd"), crea`
`22`	`22`	`)`
`23`	`23`
`24`	`24`	`if(edit) {`
`25`		`- path <- if(create_dir) {`
	`25`	`+ path <- if (create_dir) {`
`26`	`26`	`file.path(xfun::sans_ext(file), file)`
`27`	`27`	`} else {`
`28`	`28`	`file`
`@@ -40,6 +40,8 @@ create_article <- function(name="test", file = xfun::with_ext(name, "Rmd"), crea`
`40`	`40`	`}`
`41`	`41`	`}`
`42`	`42`
	`43`	`+ if (create_dir)`
	`44`	`+ setwd(name)`
`43`	`45`	`fs::dir_create("data")`
`44`	`46`	`fs::dir_create("figures")`
`45`	`47`	`fs::file_move("penguins.png", "figures/penguins.png")`