R/countCharOccurrences.R

In maczokni/misperTweetsCode: This Package Contains All the Code Used for the Paper 'Exploring public engagement with missing person appeals on Twitter.'

Defines functions countCharOccurrences

Documented in countCharOccurrences

#function for counting occurences of a char in string
#countchars
#' @export
countCharOccurrences <- function(char, s) {
  s2 <- gsub(char,"",s)
  return (nchar(s) - nchar(s2))
}