fork download
  1. file1 <- "example.txt"
  2. file2 <- "example.ffe.2f2.csv"
  3. files <- c(file1,file2)
  4. tools::file_path_sans_ext(files)
Success #stdin #stdout 0.17s 179968KB
stdin
Standard input is empty
stdout
[1] "example"         "example.ffe.2f2"