R/freq_word.R

In urodoct/iuform: Creates online data collection forms as a Shiny app

#' Counts keywords in code
#'
#' @param code this is code you want to  search within
#' @param pattern this is the keywords you want to find
#'
#'
#'
freq_word <- function(code, pattern){

  loci <- stringr::str_locate_all(code, pattern)
  sapply(loci, length)/2
}