removeExt: Remove Common Extension from File Names

Description

Finds and removes any common extension from a vector of file names.

Usage

removeExt(x, sep=".")

Arguments

character vector

sep

character string that separates the body of each character string from the extension.

Value

A character vector of the same length as x in which any common extension has been stripped off.

Details

This function is used for simplifying file names, or any vector of character strings, when the strings all finish with the same suffix or extension. If the same extension is not shared by every element of x, then it is not removed from any element.

Note that sep is interpreted as a literal character string: it is not a regular expression.

Examples

Run this code

x <- c("slide1.spot","slide2.spot","slide3.spot")
removeExt(x)

x <- c("Harry - a name from Harry Potter","Hermione - a name from Harry Potter")
removeExt(x, sep=" - ")