add file_show

rpkgs · Sep 1, 2023 · faf368a · faf368a
1 parent 3208005
commit faf368a
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -73,6 +73,7 @@ export(file_cp)
 export(file_ext)
 export(file_mv)
 export(file_name)
+export(file_show)
 export(file_size)
 export(fliplr)
 export(flipud)

diff --git a/R/cmd_func.R b/R/cmd_func.R
@@ -167,6 +167,15 @@ file_cp <- function(files, outdir) {
   file.copy(files, files_new)
 }
 
+#' @export
+file_show <- function(f, ...) {
+  if (is_win()) {
+    shell.exec(f)
+  } else {
+    file.show(f, ...)
+  }
+}
+
 #' @rdname mkdir
 #' @export
 check_dir <- mkdir

diff --git a/R/write_fig.R b/R/write_fig.R
@@ -132,7 +132,7 @@ showfig <- function(file, use.file_show = FALSE) {
     is_wsl_rserver = dir.exists("/mnt/c") &&
         file.exists("/usr/sbin/rstudio-server") && file_ext == "pdf"
     if (file_ext %in% c("svg", "emf", "jpg", "png") || (is_wsl_rserver && use.file_show)) {
-        file.show(file)
+        file_show(file)
     } else {
         pdf_view(file)
     }

diff --git a/R/write_list2xlsx.R b/R/write_list2xlsx.R
@@ -35,7 +35,7 @@ write_list2xlsx <- function(x, file, .progress = "none", rowNames = FALSE, show
     tmp <- llply(seq_along(x), writeIn, .progress = .progress)
     if (.progress != "none") cat(sprintf("[---- Writing into xlsx file: %s ----]\n", file))
     saveWorkbook(wb, file, overwrite = TRUE)
-    if (show) file.show(file)
+    if (show) file_show(file)
 }
 
 #' read_xlsx2list