Remove extraneous some_of()

jonkeane · jonkeane · commit 6f66ec279ab7 · 2022-03-28T13:01:20.000-05:00
diff --git a/R/object_name_linters.R b/R/object_name_linters.R
@@ -112,7 +112,7 @@ check_style <- function(nms, style, generics = character()) {
 strip_names <- function(x) {
   x <- re_substitutes(x, rex(start, some_of(".", quote, "`", "%", "$", "@")), "")
   x <- re_substitutes(x, rex(some_of(quote, "`", "<", "-", "%", "$", "@"), end), "")
-  x <- re_substitutes(x, rex(some_of("<-"), "."), ".")
+  x <- re_substitutes(x, rex("<-", "."), ".")
   x
 }
 

Original file line number	Diff line number	Diff line change
`@@ -112,7 +112,7 @@ check_style <- function(nms, style, generics = character()) {`
`112`	`112`	`strip_names <- function(x) {`
`113`	`113`	x <- re_substitutes(x, rex(start, some_of(".", quote, "`", "%", "$", "@")), "")
`114`	`114`	x <- re_substitutes(x, rex(some_of(quote, "`", "<", "-", "%", "$", "@"), end), "")
`115`		`- x <- re_substitutes(x, rex(some_of("<-"), "."), ".")`
	`115`	`+ x <- re_substitutes(x, rex("<-", "."), ".")`
`116`	`116`	`x`
`117`	`117`	`}`
`118`	`118`