请教各位大牛！！

我在写函数的是否碰见了下面这个问题。但是如果我把 read.csv 这一步放在外面，就是可以出结果的。是不能把路径写进function（），还是我的写法有问题呢？

> remove_free_orders <- function(file, n) {
+   original <- read.csv(file)
+   original[,n] <- as.character(original[,n])
+   test <- original[order(original$购买订单),]
+   freq <- data.frame(table(test$购买订单))
+   uniq <- subset(freq,freq[,2]==1)
+   uniq <- rename(uniq,c(Var1="购买订单"))
+   merge(test, uniq, by = '购买订单', all.y = TRUE)
+ }
> payed_orders <- remove_free_orders(file='D:/iCarbonX/PBACK3.csv,original',5)

Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file, "rt") :




谢谢！！！！！！！！！