R/sasr_freq.R

In AurelieFrechet/saservira: Convert SAS code into R

sasr_freq <-function(code_sas){
  code_net <- code_sas %>%
    str_remove(pattern = regex("proc\\s+freq\\s+", ignore_case = T)) %>%
    str_remove(pattern = regex("run\\s*;", ignore_case = T)) %>%
    str_remove_all(pattern = ";") %>%
    str_replace_all(pattern = "\n", replacement = " ") %>%
    str_replace_all(pattern = "=", replacement = " ") %>%
    str_replace_all(pattern = "\\s+", replacement = " ") %>%
    decoupe_requete(
      requete = .,
      key_words = c("data",
                    "by",
                    "exact",
                    "output",
                    "tables",
                    "test",
                    "weight")
    )
}