MacOS 安装xlsx包并批量输出excel文件

mac安装xlsx会报错，是由于java环境的问题，打开mac的终端输入：

sudo ln -s $(/usr/libexec/java_home)/jre/lib/server/libjvm.dylib /usr/local/lib

即可轻松解决。
输出一个含不同sheel的excel文件可参考这个知乎帖子.
下面是我的例子：

mycsvfile = list.files(pattern="*.csv")   
list2env(
  lapply(setNames(mycsvfile, make.names(gsub("*.csv$", "", mycsvfile))),
         read.csv,header=T,check.names=FALSE), envir = .GlobalEnv)
files<-unlist(lapply(mycsvfile, FUN = function(x) {return(strsplit(x, split = ".csv")[[1]][1])}))
#########批量读入文件
for (i in files) {
  sheetName<-strsplit(i, split = "_",fixed = T)[[1]][1]
  write.xlsx(get(i)[,2:3], file="yourname.xlsx", sheetName=sheetName,append=TRUE, row.names=FALSE)
}
#批量输出

for (i in files) {
  if (nrow(get(i))>1) {
  sheetName<-strsplit(i, split = "_",fixed = T)[[1]][1]
  write.xlsx(get(i), file="yourname.xlsx", sheetName=sheetName,append=TRUE, row.names=FALSE)
  }
}