get_ext("data.csv") # "csv"
get_ext("archive.tar.gz") # "gz"
get_ext("archive.tar.gz", TRUE) # "tar.gz"
get_ext(c("a.R", "b.txt", "c")) # "R" "txt" ""
get_ext("data.CSV", to_lower = TRUE) # "csv"
Run the code above in your browser using DataLab