Skip to content

Commit 84395e0

Browse files
committed
fix: missing import, capitalize .R
1 parent 0c3d2a8 commit 84395e0

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

R/layer_yeo_johnson.r renamed to R/layer_yeo_johnson.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -147,8 +147,8 @@ slather.layer_epi_YeoJohnson <- function(object, components, workflow, new_data,
147147
# these columns. That is, we need to convert a vector of column names like
148148
# c(".pred_ahead_1_case_rate", ".pred_ahead_7_case_rate") to
149149
# c("lambda_ahead_1_case_rate", "lambda_ahead_7_case_rate").
150-
original_outcome_cols <- str_match(col_names, ".pred_ahead_\\d+_(.*)")[, 2]
151-
outcomes_wout_ahead <- str_match(names(components$mold$outcomes), "ahead_\\d+_(.*)")[,2]
150+
original_outcome_cols <- stringr::str_match(col_names, ".pred_ahead_\\d+_(.*)")[, 2]
151+
outcomes_wout_ahead <- stringr::str_match(names(components$mold$outcomes), "ahead_\\d+_(.*)")[,2]
152152
if (any(original_outcome_cols %nin% outcomes_wout_ahead)) {
153153
cli_abort("All columns specified in `...` must be outcome columns.
154154
They must be of the form `.pred_ahead_1_<outcome_col>`, `.pred_ahead_7_<outcome_col>`, etc.

0 commit comments

Comments
 (0)