From 95e762d944e04b5a19efad7a89c9e091c569348b Mon Sep 17 00:00:00 2001 From: indenkun Date: Mon, 4 Jul 2022 23:19:36 +0900 Subject: [PATCH 1/2] `funs()` function, deprecated in `{dplyr}` 0.8.0, has been modified so that it is not used and warning messages are not displayed. --- R/buildPlottingFrame.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/buildPlottingFrame.r b/R/buildPlottingFrame.r index 76c6377..f2e4a7c 100644 --- a/R/buildPlottingFrame.r +++ b/R/buildPlottingFrame.r @@ -126,7 +126,7 @@ 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), + modelCI <- dplyr::mutate_at(.tbl=modelCI, .funs=trans, .vars=c('Value', 'HighInner', 'HighOuter', 'LowInner', 'LowOuter')) From 9cf1590a594d95eb6b0026d950b6f6c9fcbfac1e Mon Sep 17 00:00:00 2001 From: indenkun Date: Wed, 6 Jul 2022 11:45:40 +0900 Subject: [PATCH 2/2] Replaced `mutate_at()` with `mutate(across(...))`. --- R/buildPlottingFrame.r | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/R/buildPlottingFrame.r b/R/buildPlottingFrame.r index f2e4a7c..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=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