"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()))