Correct set/get_saved_par order (#486)

* save current pars before restoring old ones

* add test

Author: grantmcdermott

R/tinyplot.R

@@ -659,15 +659,6 @@ tinyplot.default = function(
     }
   }
 
-  # catch for adding to existing facet plot
-  if (!is.null(facet) && add) {
-    recordGraphics(
-      par(get_saved_par(when = "after")),
-      list = list(),
-      env = getNamespace('tinyplot')
-    )
-  }
-
   # Save current graphical parameters
   opar = par(no.readonly = TRUE)
   if (restore.par || !is.null(facet)) {
@@ -678,6 +669,15 @@ tinyplot.default = function(
   }
   set_saved_par(when = "before", opar)
 
+  # Catch for adding to existing facet plot
+  if (!is.null(facet) && add) {
+    recordGraphics(
+      par(get_saved_par(when = "after")),
+      list = list(),
+      env = getNamespace('tinyplot')
+    )
+  }
+
   # Ephemeral theme
   if (!is.null(theme)) {
     # browser()