@@ -21,23 +21,25 @@ set_arg_write_tree <- function(write_tree) {
2121# ' @inheritParams make_transformer
2222# ' @keywords internal
2323assert_transformers <- function (transformers ) {
24+ version_cutoff <- 1.5
2425 no_name <- is.null(transformers $ style_guide_name )
2526 no_version <- is.null(transformers $ style_guide_version )
2627 if (no_name || no_version ) {
27- action <- ifelse(utils :: packageVersion(" styler" ) > = 1.4 ,
28- " are not supported" , " won't be supported"
28+ action <- ifelse(utils :: packageVersion(" styler" ) > = version_cutoff ,
29+ " are not supported anymore" ,
30+ " depreciated and will be removed in a future version of styler."
2931 )
3032 message <- paste(
31- " Style guides without a name and a version field are depreciated and " ,
32- action , " in styler >= 1.4. \n If you are a user: Open an issue on" ,
33+ " Style guides without a name and a version field are" ,
34+ action , " \n If you are a user: Open an issue on" ,
3335 " https://github.com/r-lib/styler and provide a reproducible example" ,
3436 " of this error. \n If you are a developer:" ,
3537 " When you create a style guide with `styler::create_style_guide()`, the" ,
3638 " argument `style_guide_name` and `style_guide_version` should be" ,
3739 " non-NULL. See help(\" create_style_guide\" ) for how to set them."
3840 )
3941
40- if (utils :: packageVersion(" styler" ) > = 1.4 ) {
42+ if (utils :: packageVersion(" styler" ) > = version_cutoff ) {
4143 rlang :: abort(message )
4244 } else {
4345 rlang :: warn(message )
0 commit comments