normalize path when cache is memory in load_race_session()

SCasanova · SCasanova · commit 8461eac4ec27 · 2023-08-16T11:44:24.000-06:00
diff --git a/R/load_race_session.R b/R/load_race_session.R
@@ -59,7 +59,7 @@ load_race_session <- function(obj_name = "session", season = get_current_season(
 
   # only cache to tempdir if cache option is set to memory or off (includes filesystem in vector as a fallback error catch)
   if (getOption("f1dataR.cache") %in% c("memory", "off", "filesystem")) {
-    f1datar_cache <- tempdir()
+    f1datar_cache <- normalizePath(tempdir(), winslash = "/")
   } else {
     f1datar_cache <- normalizePath(getOption("f1dataR.cache"), winslash = "/")
   }

Original file line number	Diff line number	Diff line change
`@@ -59,7 +59,7 @@ load_race_session <- function(obj_name = "session", season = get_current_season(`
`59`	`59`
`60`	`60`	`# only cache to tempdir if cache option is set to memory or off (includes filesystem in vector as a fallback error catch)`
`61`	`61`	`if (getOption("f1dataR.cache") %in% c("memory", "off", "filesystem")) {`
`62`		`- f1datar_cache <- tempdir()`
	`62`	`+ f1datar_cache <- normalizePath(tempdir(), winslash = "/")`
`63`	`63`	`} else {`
`64`	`64`	`f1datar_cache <- normalizePath(getOption("f1dataR.cache"), winslash = "/")`
`65`	`65`	`}`