different way to reset options

shug0131 · Nov 28, 2024 · a6c53a6 · a6c53a6
1 parent 96fb5ec
commit a6c53a6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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