R/file_extension.R

In daudi/phutils: Utilities for Public Health Intelligence

##' Return the extension of a file name
##' 
##' 
##' This is a simple utility function that returns the extension from a file name.
##' 
##' @param x A file name (a character string)
##' @return A character string
##' @export
##' @author David Whiting, david.whiting@@publichealth.me.uk
##' @examples 
##' 
##' file_extension("temp.txt")

file_extension <- function(x) {
  x <- unlist(strsplit(x, "\\."))
  x[length(x)]
}