escape \ in html dependencies

jjallaire · jjallaire · commit 8bf851e4e947 · 2022-05-31T10:22:57.000-04:00
diff --git a/src/resources/rmd/execute.R b/src/resources/rmd/execute.R
@@ -418,7 +418,7 @@ html_dependencies_as_string <- function(dependencies, files_dir) {
   dependencies <- lapply(dependencies, function(dependency) {
     dir <- dependency$src$file
     if (!is.null(dir)) {
-      dependency$src$file <- paste(files_dir, basename(dir), sep = "/")
+      dependency$src$file <- gsub("\\\\", "/", paste(files_dir, basename(dir), sep = "/"))
     }
     dependency
   })

Original file line number	Diff line number	Diff line change
`@@ -418,7 +418,7 @@ html_dependencies_as_string <- function(dependencies, files_dir) {`
`418`	`418`	`dependencies <- lapply(dependencies, function(dependency) {`
`419`	`419`	`dir <- dependency$src$file`
`420`	`420`	`if (!is.null(dir)) {`
`421`		`- dependency$src$file <- paste(files_dir, basename(dir), sep = "/")`
	`421`	`+ dependency$src$file <- gsub("\\\\", "/", paste(files_dir, basename(dir), sep = "/"))`
`422`	`422`	`}`
`423`	`423`	`dependency`
`424`	`424`	`})`