Fix #56

Oliver Keyes · Oliver Keyes · commit 2020fbfeb395 · 2016-09-01T19:17:22.000-07:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: urltools
 Type: Package
 Title: Vectorised Tools for URL Handling and Parsing
-Version: 1.5.2
+Version: 1.5.3
 Date: 2016-09-01
 Author: Oliver Keyes [aut, cre], Jay Jacobs [aut, cre], Mark Greenaway [ctb],
     Bob Rudis [ctb], Alex Pinto [ctb], Maryam Khezrzadeh [ctb]
diff --git a/NEWS b/NEWS
@@ -3,7 +3,6 @@ Version 1.6.0 [WIP]
 -------------------------------------------------------------------------
 
 FEATURES
-* 'www' is now stripped from domains. (#53)
 
 Version 1.5.2
 -------------------------------------------------------------------------
diff --git a/R/zzz.R b/R/zzz.R
@@ -5,7 +5,7 @@ suffix_load <- function(suffixes = NULL){
     suffixes <- urltools::suffix_dataset
   }
   cleaned_suffixes <- gsub(x = suffixes, pattern = "*.", replacement = "", fixed = TRUE)
-  is_wildcard <- cleaned_suffixes[which(grepl(x = urltools::suffix_dataset, pattern = "*.", fixed = TRUE))]
+  is_wildcard <- cleaned_suffixes[which(grepl(x = suffixes, pattern = "*.", fixed = TRUE))]
   suff_trie <- triebeard::trie(keys = reverse_strings(paste0(".", cleaned_suffixes)),
                                values = cleaned_suffixes)
   return(list(suff_trie = suff_trie,

Original file line number	Diff line number	Diff line change
`@@ -5,7 +5,7 @@ suffix_load <- function(suffixes = NULL){`
`5`	`5`	`suffixes <- urltools::suffix_dataset`
`6`	`6`	`}`
`7`	`7`	`cleaned_suffixes <- gsub(x = suffixes, pattern = "*.", replacement = "", fixed = TRUE)`
`8`		`- is_wildcard <- cleaned_suffixes[which(grepl(x = urltools::suffix_dataset, pattern = "*.", fixed = TRUE))]`
	`8`	`+ is_wildcard <- cleaned_suffixes[which(grepl(x = suffixes, pattern = "*.", fixed = TRUE))]`
`9`	`9`	`suff_trie <- triebeard::trie(keys = reverse_strings(paste0(".", cleaned_suffixes)),`
`10`	`10`	`values = cleaned_suffixes)`
`11`	`11`	`return(list(suff_trie = suff_trie,`