file1 <- "example.txt"
file2 <- "example.ffe.2f2.csv"
files <- c(file1,file2)
tools::file_path_sans_ext(files)