# NOT RUN {
# Copy sample file to current wd
lnt_sample()
# Rename files in current wd and report back if successful
# }
# NOT RUN {
report.df <- lnt_rename(recursive = FALSE,
report = TRUE)
# }
# NOT RUN {
# Or provide file name(s)
my_files<-list.files(pattern = ".txt", full.names = TRUE,
recursive = TRUE, ignore.case = TRUE)
report.df <- lnt_rename(x = my_files,
recursive = FALSE,
report = TRUE)
# Or provide folder name(s)
report.df <- lnt_rename(x = getwd())
report.df
# }
Run the code above in your browser using DataLab