fixed a general path fordemo outdir

AritraDey-Dev · AritraDey-Dev · commit cfface855803 · 2025-09-30T22:53:23.000+05:30
Signed-off-by: Aritra Dey &lt;adey01027@gmail.com&gt;
diff --git a/documentation/tutorials/Demo_1_Basic_Run/download_sipnet.R b/documentation/tutorials/Demo_1_Basic_Run/download_sipnet.R
@@ -15,7 +15,7 @@ if (os == "Linux") {
   PEcAn.logger::logger.error("Unsupported operating system: ", os)
 }
 
-demo_outdir <- here::here("documentation/tutorials/Demo_1_Basic_Run/demo_outdir")
+demo_outdir <- file.path("demo_outdir")
 dest_path <- file.path(demo_outdir, "sipnet")
 if (!dir.exists(demo_outdir)) {
     # using if(!dir.exists) instead of `showWarnings = FALSE`

Original file line number	Diff line number	Diff line change
`@@ -15,7 +15,7 @@ if (os == "Linux") {`
`15`	`15`	`PEcAn.logger::logger.error("Unsupported operating system: ", os)`
`16`	`16`	`}`
`17`	`17`
`18`		`-demo_outdir <- here::here("documentation/tutorials/Demo_1_Basic_Run/demo_outdir")`
	`18`	`+demo_outdir <- file.path("demo_outdir")`
`19`	`19`	`dest_path <- file.path(demo_outdir, "sipnet")`
`20`	`20`	`if (!dir.exists(demo_outdir)) {`
`21`	`21`	# using if(!dir.exists) instead of `showWarnings = FALSE`