批量重命名文件名
setwd('/Users/zsc/Desktop/音乐mp3/')
library(stringr)
oldname = list.files(pattern = '.*mp3')
newname = str_extract(d,'.*(?=158)')
df = data.frame(oldname = oldname, newname = newname)
df
file.rename(df$oldname, df$newname)
批量统计 pdf 的页数
library(qpdf)
setwd('/Users/zsc/Desktop/pdf/')
d = list.files()
d
d1 = str_extract(d,'.*?.pdf$')
library(purrr)
map_dbl(d1, pdf_length)
map_dbl(d1, pdf_length) %>% sum()
移除latex生成的临时文件
p = getwd()
cat(p,'\n')
t = '*.aux|*.bbl|*.bcf|*.blg|*.log|*.xml|*.out|*.spl|*.synctex.gz'
del = list.files(path = p,pattern = t)
file.remove(del)