r - 在 R 上：我无法使用 list() 执行构建函数，输入

Question

我是 R 新手并尝试使用我自己的函数进行计算：

library(lubridate)
diffWeekdays<-function(df,ds){
  df<-as.Date(df)
  ds<-as.Date(ds)

    ndays<-as.integer(0)
  for(i in ds:df) {
    if(wday(ds)>1& wday(ds)<7){ #only weekdays count
      ndays<-ndays+1
    }
   ds<-ds+1
  }
    if(ndays>0){
      ndays<-ndays-1
    }
  return(ndays)
}

我有一个 B（列表 [2]）。当我执行 B[2] 或 B[1] 时，会显示所有值，但是当我执行时

diffWeekdays(B[[2]],B[[1]])

我收到错误：as.Date.default(df) 中的错误：
不知道如何将“df”转换为“日期”类

>B[[2]]

6193 2012-07-19
6194 2012-07-17
6195 2012-07-16

有人可以告诉我我做错了什么。谢谢