fork download
copy 
  1. strings <- c("cloch/51.wav",
  2.              "grand/Grand_bombarde/02-suchy_Grand_bombarde/038-D.wav",
  3.              "grand/Grand_bombarde/02-suchy_Grand_bombarde/039-D#.wav",
  4.              "AB_AeolinaL/025-C#.wav",
  5.              "AB_AeolinaL/026-D.wav",
  6.              "AB_violadamourL/rel99999/091-G.wav",
  7.              "AB_violadamourL/rel99999/092-G#.wav",
  8.              "AB_violadamourR/024-C.wav",
  9.              "AB_violadamourR/025-C#.wav")
  10. sub("/[^\\s/]+\\.wav$", "", strings)
  11.  
Success #stdin #stdout 0.22s 39396KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "cloch"                                       
[2] "grand/Grand_bombarde/02-suchy_Grand_bombarde"
[3] "grand/Grand_bombarde/02-suchy_Grand_bombarde"
[4] "AB_AeolinaL"                                 
[5] "AB_AeolinaL"                                 
[6] "AB_violadamourL/rel99999"                    
[7] "AB_violadamourL/rel99999"                    
[8] "AB_violadamourR"                             
[9] "AB_violadamourR"
https://ideone.com/vtXE7J
language:
R (R 3.5.2)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!