library(osf);
dirs <- c('./data-raw/file/test/8月包装.xlsx','./data-raw/file/test/8月第三方.xlsx');
newFiles <-c('胡立磊.xlsx','李学华.xlsx')
file.replaceName(dirs,newShortNames = newFiles)->bbc;
bbc;
file.rename(dirs,bbc);
#测试文件名添加名称
library(osf);
file.postAddName(c('aaa.xlsx','ccc.xlsx'));
#根据文件全部来获取相应的路径
library(osf);
file.getFullDir(c('./data-raw/file/test/aa.zip','./data-raw/file/test/bb.txt'));
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.