R/z__file_ext.R

z__file_ext <- function (x) 
{
  pos <- regexpr("\\.([[:alnum:]]+)$", x)
  ifelse(pos > -1L, substring(x, pos + 1L), "")
}
trevorlolsen/jaw documentation built on July 2, 2023, 9:33 a.m.