Strip strip_names

Author: jonkeane

NEWS.md

@@ -127,6 +127,7 @@ function calls. (#850, #851, @renkun-ken)
 * * `object_length_linter()` correctly detects generics and only counts the implementation class towards the length. 
   This prevents false positive lints in the case of long generic names, e.g. 
   `very_very_very_long_generic_name.short_class` no longer produces a lint (#871, @AshesITR)
+* Assignment generics on custom classes (#843, @jonkeane)
 
 # lintr 2.0.1
 

R/object_name_linters.R

@@ -62,11 +62,11 @@ object_name_linter <- function(styles = c("snake_case", "symbols")) {
       xml2::xml_text(assignments)
     )
 
-    generics <- strip_names(c(
+    generics <- c(
       declared_s3_generics(xml),
       imported_s3_generics(namespace_imports(find_package(source_file$filename)))$fun,
       .base_s3_generics
-    ))
+    )
     generics <- unique(generics[nzchar(generics)])
 
     style_matches <- lapply(styles, function(style) {
@@ -112,7 +112,6 @@ 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("<-", "."), ".")
   x
 }