"file_iteration1.csv" "file_iteration1_obs.csv" "file_iteration1_modp.csv"
3 Réponses :
Avec sub
:
x <- c("file_iteration1_2019-03-01-03-38-16.csv", "file_iteration1_obs_2019-03-01-03-38-16.csv", "file_iteration1_modp_2019-03-01-03-38-16.csv") sub('_\\d{4}(-\\d{2}){5}', '', x) # [1] "file_iteration1.csv" "file_iteration1_obs.csv" "file_iteration1_modp.csv"
Nous pouvons utiliser str_remove
library(stringr) str_remove(files, "_[0-9-]+") #[1] "file_iteration1.csv" "file_iteration1_obs.csv" "file_iteration1_modp.csv"
Puisque vous souhaitez renommer les fichiers dans le dossier, vous pouvez combiner file.rename ()
et gsub ()
( sub ()
ou stringr :: str_remove ()
, suggéré par @avid_useR et @akrun, fonctionnerait également très bien). Essayez:
file.rename(list.files(), gsub('_[0-9-]+', '', list.files()))