diff --git a/R/buildPlottingFrame.r b/R/buildPlottingFrame.r
index 76c6377..016fca5 100644
--- a/R/buildPlottingFrame.r
+++ b/R/buildPlottingFrame.r
@@ -126,10 +126,11 @@ buildModelCI.default <- function(model, outerCI=2, innerCI=1, intercept=TRUE, nu
     # perform a transformation on the numbers if it's not the identity
     if(!identical(trans, identity))
     {
-        modelCI <- dplyr::mutate_at(.tbl=modelCI, .funs=dplyr::funs(trans), 
-                                       .vars=c('Value', 
-                                              'HighInner', 'HighOuter', 
-                                              'LowInner', 'LowOuter'))
+        modelCI <- dplyr::mutate(.data=modelCI, 
+                                 dplyr::across(.cols=c('Value', 
+                                                       'HighInner', 'HighOuter', 
+                                                       'LowInner', 'LowOuter'), 
+                                               .fns=trans))
     }
 
     ## possible orderings of the coefficients