create.SRs.data() throws an error in R 4.1.

[danaim]

Hi,

In the new R version get() signals an error if the first argument has length greater than 1.

Error in get(grep(stks.data[[nmstk]], pattern = "_params.n", value = TRUE)) : first argument has length > 1
> grep(stks.data[[nmstk]], pattern = "_params.n", value = TRUE)
[1] "stk1_params.n" "stk1_params.name"

A possible solution would be to add a $ at the end of the pattern to grep:
> grep(stks.data[[nmstk]], pattern = "_params.n$", value = TRUE)
[1] "stk1_params.n"

The same error possible holds for other create.XX functions, I haven't checked yet
Thank you,

Danai

[aleorio]

Yes, I have discovered the same problem. It would be great if this could be fixed. It works with R 4.0 but not with newer versions.
Thanks
Ale