R/special_sql.R

Defines functions special_sql

Documented in special_sql

#' @title Special SQL
#'
#' @export


special_sql <- function(argument) {
  return(
    argument %>%
      strsplit("") %>%
      purrr::map(function(x) x %in% c("*", ";", "'")) %>%
      purrr::map(sum) %>%
      purrr::flatten_dbl() %>%
      as.matrix
  )
}
ntyndall/detectR documentation built on May 27, 2019, 3:32 p.m.