improve write_fig

rpkgs · May 17, 2023 · 75cef6e · 75cef6e
1 parent e4a405f
commit 75cef6e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/print.R b/R/print.R
@@ -9,7 +9,7 @@
 #' @export
 print.data.table <- function(d, n = NULL, ..., maxrows = 1e6) {
   if (is.null(n)) n = getOption("datatable.print.nrow") %||% 10
-
+  # options(datatable.print.nrow = 100)
   # cat(sprintf("[data.table]: %s \n", dim_desc(d)))
   if (nrow(d) <= maxrows) {
     cat("[data.table]: \n")

diff --git a/R/write_fig.R b/R/write_fig.R
@@ -40,6 +40,8 @@ write_fig <- function (p, file = "Rplot.pdf", width = 10, height = 5,
         }    
     }
     outdir    = dirname(file)
+    mkdir(outdir)
+
     filename  = file_name(file)
     file_exts = if (is.null(devices)) file_ext(file) else devices
     if (length(file_exts) == 1 && (is.na(file_exts) || file_exts == "")) file_exts = "pdf"
@@ -48,7 +50,7 @@ write_fig <- function (p, file = "Rplot.pdf", width = 10, height = 5,
     process <- function() {
         for(i in seq_along(file_exts)) {
             file_ext = file_exts[i]
-            outfile  = sprintf("%s/%s.%s", outdir, filename, file_ext)
+            outfile  = sprintf("%s/%s.%s", outdir, filename, file_ext) %>% path_mnt()
 
             dev_open(outfile, width, height, res, use.cairo_pdf)
             # 1. print plot