Split arguments for format_exp()

Author: krlmlr

R/scientific.R

@@ -1,8 +1,8 @@
-format_exp <- function(x) {
-  if (x$si) {
-    si(x$exp)
+format_exp <- function(exp, si) {
+  if (si) {
+    si(exp)
   } else {
-    supernum(x$exp)
+    supernum(exp)
   }
 }
 

R/sigfig.R

@@ -407,7 +407,7 @@ style_num <- function(x, negative, significant = rep_along(x, TRUE)) {
 
 assemble_decimal <- function(x) {
   mantissa <- format_mantissa(x)
-  exp <- format_exp(x)
+  exp <- format_exp(x$exp, x$si)
 
   paste0(mantissa, exp)
 }