mxmehl/uni-ba-socialagenda
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

before changing fuzzy matching because it sucks

Browse Source
This commit is contained in:
mxmehl
2015-01-18 23:35:47 +01:00
parent 4693f8571e
commit e9c5fc7d8d
3 changed files with 404 additions and 383 deletions
Download Patch File Download Diff File Expand all files Collapse all files
issuecomp-functions.R
+2 -2
View File
@@ -33,14 +33,14 @@ smartPatternMatch <- function(string, pattern, chars, acronym) {
found <- agrep(patternrex, string, max.distance = list(all = 0), ignore.case = !acronym, fixed = FALSE)
}
else if(chars >= 8) { # 8 or more
found <- agrep(patternrex, string, max.distance = list(all = 3), ignore.case = !acronym, fixed = FALSE)
found <- agrep(patternrex, string, max.distance = list(all = 2), ignore.case = !acronym, fixed = FALSE)
# Give longer words a chance by ignoring word boundaries \\b
if(convertLogical0(found) == 0) {
found <- grep(pattern, string, ignore.case = !acronym, fixed = FALSE)
}
}
else { # 5,6,7
found <- agrep(patternrex, string, max.distance = list(all = 2), ignore.case = !acronym, fixed = FALSE)
found <- agrep(patternrex, string, max.distance = list(all = 1), ignore.case = !acronym, fixed = FALSE)
}
found <- convertLogical0(found)
return(found)