在R中编写用于跟随命令行的函数

Question

如何在R

中编写以下脚本的函数

上面的代码在R studio中运行正常，但似乎就像命令行一样，但是我需要编写一个包含函数和对象的类，就像我们在java，c ++等中一样。

> data1 <- read.csv("AllMetals.csv")

> sb <- subset(melt(data1, varnames = c("Gold", "Silver", "Bronze"), id.vars = 1:6, value.name = "Count", variable.name = "Metal"), Count > 0)

> write.xlsx(sb, "E:/Alteryxdataout.xlsx")

Answer 1

仅使用2个参数（输入和输出文件）：

write.xlsx.fun <- function(csv.file = NA, outfile = NA) {
  data1 <- read.csv(csv.file)
  sb <- subset(melt(data1, varnames = c("Gold", "Silver", "Bronze"), 
               id.vars = 1:6, value.name = "Count", variable.name = "Metal"),
               Count > 0)
  write.xlsx(sb, outfile)
}

您可以根据需要添加尽可能多的参数...并且可以根据需要在函数内添加xlsx或XLConnect包的library语句。