diff --git a/R/safety_summary.R b/R/safety_summary.R
index 1a9385e..8eb7e0a 100644
--- a/R/safety_summary.R
+++ b/R/safety_summary.R
@@ -221,8 +221,8 @@ df_to_char <- function(df){
 #' @importFrom utils head
 
 print.safety_summary <- function(x,...){
-  old_scipen <- getOption("scipen", default=0)
-  on.exit( options(scipen=old_scipen))
+  old_options <- options()
+  on.exit( options(old_options))
   options(scipen=999)
   cat("Group-Level Statistics\n\n")
   print(x$GROUP)
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
index 20201a4..c19240b 100644
Binary files a/tests/testthat/Rplots.pdf and b/tests/testthat/Rplots.pdf differ