R/rename_file.R

In jaspershen/sxtTools: All the usefull tools from Xiaotao Shen

# setwd("F:/PS4P/HILIC/POS/batch3")
# file <- dir()
# library(tidyverse)
# file <- grep(pattern = "2019", file, value = TRUE)
# file2 <- file %>%
#   stringr::str_replace("_2019[0-9]{3,18}", "")
#
# file.rename(from = file, to = file2)
#
#
# setwd("F:/PS4P/HILIC/NEG/batch3")
# file <- dir()
# library(tidyverse)
# file <- grep(pattern = "2019", file, value = TRUE)
# file2 <- file %>%
#   stringr::str_replace("_2019[0-9]{3,18}", "")
#
# file.rename(from = file, to = file2)
#
#
#