Fix conditionally missing file paths in article publishing

mitchelloharawild · mitchelloharawild · commit 68bafa9a7535 · 2025-11-26T19:22:34.000+11:00
diff --git a/R/publish.R b/R/publish.R
@@ -414,6 +414,7 @@ move_article_web <- function(from, to, volume, issue) {
     if(utils::menu(c("Yes", "No")) != 1) {
       cli::cli_abort("RJwrapper.tex not found for a legacy article, so article could not be migrated.")
     }
+    article_files <- get_article_files(from)
     wrapper_input <- xfun::sans_ext(article_files[xfun::file_ext(article_files)=="tex"])
     if(length(wrapper_input) != 1) {
       cli::cli_abort("Could not automatically identify appropriate article tex file. Check that exactly 1 input tex file exists for the wrapper.")

Original file line number	Diff line number	Diff line change
`@@ -414,6 +414,7 @@ move_article_web <- function(from, to, volume, issue) {`
`414`	`414`	`if(utils::menu(c("Yes", "No")) != 1) {`
`415`	`415`	`cli::cli_abort("RJwrapper.tex not found for a legacy article, so article could not be migrated.")`
`416`	`416`	`}`
	`417`	`+ article_files <- get_article_files(from)`
`417`	`418`	`wrapper_input <- xfun::sans_ext(article_files[xfun::file_ext(article_files)=="tex"])`
`418`	`419`	`if(length(wrapper_input) != 1) {`
`419`	`420`	`cli::cli_abort("Could not automatically identify appropriate article tex file. Check that exactly 1 input tex file exists for the wrapper.")`