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))