add check for tempdir

egeulgen · egeulgen · commit fcf44775a9fe · 2025-02-15T15:45:52.000Z
diff --git a/R/visualization.R b/R/visualization.R
@@ -371,7 +371,7 @@ color_kegg_pathway <- function(pw_id, change_vec, scale_vals = TRUE, node_cols =
 
     ############ Assign the input change values to any corresponding pathway gene nodes
     # create pathway graph object and collect all pathway genes
-    ggkegg_temp_dir <- tempdir()
+    ggkegg_temp_dir <- tempdir(check = TRUE)
 
     g <- tryCatch({
       ggkegg::pathway(pid = pw_id, directory = ggkegg_temp_dir)
