Normalize paths for comparison

ateucher · ateucher · commit 3dd9fda85ff1 · 2025-06-11T14:56:26.000-07:00
diff --git a/R/create_certificate.R b/R/create_certificate.R
@@ -98,7 +98,8 @@ create_certificate <- function(
     ...
   )
 
-  if (output_dir != ".") {
+  output_dir <- fs::path_abs(output_dir)
+  if (output_dir != fs::path_abs(".")) {
     fs::dir_create(output_dir)
     fs::file_move(outfile, output_dir)
   }

Original file line number	Diff line number	Diff line change
`@@ -98,7 +98,8 @@ create_certificate <- function(`
`98`	`98`	`...`
`99`	`99`	`)`
`100`	`100`
`101`		`- if (output_dir != ".") {`
	`101`	`+ output_dir <- fs::path_abs(output_dir)`
	`102`	`+ if (output_dir != fs::path_abs(".")) {`
`102`	`103`	`fs::dir_create(output_dir)`
`103`	`104`	`fs::file_move(outfile, output_dir)`
`104`	`105`	`}`