1.33 release
diff --git a/R/graphics_helpers.R b/R/graphics_helpers.R
index b74d439..486dff6 100644
--- a/R/graphics_helpers.R
+++ b/R/graphics_helpers.R
@@ -42,7 +42,7 @@
dots <- c(dots, list(width = width / res, height = height / res))
}
filenames <- c("file", "filename")
- found <- na.omit(match(frmls, filenames))
+ found <- na.omit(match(frmls, filenames))[1]
if (length(found)) {
dots <- c(dots, setNames(filename, filenames[ found ]))
} else {
diff --git a/R/mini_plots.R b/R/mini_plots.R
index cef8c5e..caa0348 100644
--- a/R/mini_plots.R
+++ b/R/mini_plots.R
@@ -38,7 +38,8 @@
col = "lightgray", border = NULL,
dir = if (is_latex()) rmd_files_dir() else tempdir(),
file = NULL,
- file_type = if (is_latex()) "pdf" else "svg", ...) {
+ file_type = if (is_latex()) "pdf" else svglite::svglite,
+ ...) {
if (is.list(x)) {
if (same_lim & is.null(lim)) {
lim <- base::range(unlist(x), na.rm=TRUE)
@@ -131,7 +132,8 @@
boxlty = 0, medcol = "red", medlwd = 1,
dir = if (is_latex()) rmd_files_dir() else tempdir(),
file = NULL,
- file_type = if (is_latex()) "pdf" else "svg", ...) {
+ file_type = if (is_latex()) "pdf" else svglite::svglite,
+ ...) {
if (is.list(x)) {
if (same_lim & is.null(lim)) {
lim <- base::range(unlist(x), na.rm=TRUE)
@@ -262,7 +264,8 @@
minmax = list(pch = ".", cex = cex, col = "red"),
min = minmax, max = minmax,
dir = if (is_latex()) rmd_files_dir() else tempdir(),
- file = NULL, file_type = if (is_latex()) "pdf" else "svg", ...) {
+ file = NULL, file_type = if (is_latex()) "pdf" else svglite::svglite,
+ ...) {
if (is.list(x)) {
lenx <- length(x)
@@ -422,7 +425,7 @@
col = "red", cex = 0.3, frame.plot = FALSE,
dir = if (is_latex()) rmd_files_dir() else tempdir(),
file = NULL,
- file_type = if (is_latex()) "pdf" else "svg", ...) {
+ file_type = if (is_latex()) "pdf" else svglite::svglite, ...) {
if (length(x) > 1) {
if (same_lim & is.null(lim)) {
all_range <- c(unlist(xmin), unlist(xmax))