R/starts_with_digit.R

In kristian-bak/shinyStocks: An Amazing Shiny App

Defines functions starts_with_digit

Documented in starts_with_digit

#' Starts with digit
#' 
starts_with_digit <- function(x) {
  
  z <- substring(x, 1, 1)
  
  grepl("[0-9]", z)
  
}