#title 파일 처리
[[TableOfContents]]

==== 파일명 바꾸기 ====
동영상 파일명과 자막 파일명이 달라서 이렇게 해봤다.
{{{
file.rename(from, to)

smi <- list.files("G:\\동영상\\자막", full.name=TRUE)
f <- list.files("G:\\동영상\\영상", full.name=FALSE)[1:75]

for(i in 1:length(f)){
  from <- smi[i]
  to <-paste0("G:\\동영상\\자막\\", gsub(".mp4", ".smi", f[i]))
  file.rename(from, to)
}
}}}