fix wrong acronym check, add hashtag check

2015-02-26 01:27:02 +01:00
parent a32447a27b
commit 6e83b8b6a1
2 changed files with 20 additions and 11 deletions
@@ -71,10 +71,10 @@ viewMatchingTweets <- function(date, issue, folder) {
 }


-checkAcronym <- function(string, chars) {
-  curtag_up <- str_replace_all(string = curtag, pattern = "[[:lower:]]", replacement = "")
-  curchars_up <- nchar(curtag_up, type = "chars")
-  if(curchars_up == curchars) {
+checkAcronym <- function(string) {
+  curtag_up <- str_replace_all(string = string, pattern = "[[:lower:]]", replacement = "")
+  #curchars_up <- nchar(curtag_up, type = "chars")
+  if(curtag_up == string) {
    return(TRUE)
  }
  else {