Error occurred when run workflow.R

[yxye1]

Hello,
I tried to run workflow.R, but it shows an error when I ran the code listed below:

(error_result <-
dt_a %>%
prep_data() %>%
mess_data(error_table))

indel
Error: var must be a value between -3 and 3 (excluding zero), not 4
Called from: abort(glue("var must be a value between {-n} and {n} (excluding zero), not {var}"))

I cannot figure out how to correct it. Could you help me with this issue.

Thank you,
Yumeng