for working on windows webshot doesnt like \\

dime-worldbank · Jan 17, 2024 · a239f83 · a239f83
1 parent 4cd0975
commit a239f83
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/R/gt_html_to_raster.R b/R/gt_html_to_raster.R
@@ -51,11 +51,11 @@ gt_html_to_raster <- function(filename,
   # In is.null(x) || is.na(x) : 'length(x) = 4 > 1' in coercion to 'logical(1)'
 
   dir.create(filename_dir)
-  file.create(file.path(filename_dir, paste0(filename_only,".png")))
+  file.create(file.path(filename_dir, paste0(filename_only,".png")) %>% str_replace_all("\\\\", "/"))
 
   suppressWarnings({
     webshot2::webshot(url = filename,
-                      file = file.path(filename_dir, paste0(filename_only,".png")),
+                      file = file.path(filename_dir, paste0(filename_only,".png")) %>% str_replace_all("\\\\", "/"),
                       vheight = height,
                       vwidth = width,
                       cliprect = "viewport",
@@ -64,7 +64,7 @@ gt_html_to_raster <- function(filename,
   })
 
   #### Load as raster and image
-  png_filename <- file.path(filename_dir, paste0(filename_only, ".png"))
+  png_filename <- file.path(filename_dir, paste0(filename_only, ".png")) %>% str_replace_all("\\\\", "/")
 
   r <- gt_load_png_as_traffic_raster(filename = png_filename,
                                      location = c(latitude, longitude),
@@ -75,7 +75,7 @@ gt_html_to_raster <- function(filename,
                                      traffic_color_dist_metric = traffic_color_dist_metric)
 
   ## Delete png from temp file
-  unlink(file.path(filename_dir, paste0(filename_only,".png")))
+  unlink(file.path(filename_dir, paste0(filename_only,".png")) %>% str_replace_all("\\\\", "/"))
 
   return(r)
 }
diff --git a/R/gt_make_raster.R b/R/gt_make_raster.R
@@ -58,7 +58,9 @@ gt_make_raster <- function(location,
   webshot_delay <- gt_estimate_webshot_delay(height, width, webshot_delay)
 
   ## Filename; as html
-  filename_html <- tempfile(pattern = "file", tmpdir = tempdir(), fileext = ".html")
+  temp_dir <- tempdir() %>% str_replace_all("\\\\", "/")
+  filename_html <- tempfile(pattern = "file", tmpdir = temp_dir, fileext = ".html") %>%
+    str_replace_all("\\\\", "/")
 
   ## Make html
   gt_make_html(location = location,