在R中輸入日期作爲輸入函數

Question

我想編寫一個將日期作爲輸入參數的函數，輸出將是日，月，周和週年。我的示例代碼顯示了一些錯誤。請在這方面幫助我 ，謝謝。

我的示例代碼如下：

 myFunction <- function(date){ 
     date <-as.numeric(as.Date(date, format = "%m/%d/%Y",origin = "1899-12-30")) 
     date$month<- strftime(date,"%m") 
     date$day<- strftime(date,"%d") 
     data$week<-strftime(date,"%w") 
     date$week_year<-strftime(date,"%W") 
     return(date$day,date$month,date$week,date$week_year) 
     } 

當我打電話功能，它顯示錯誤：

 myFunction(2016-07-26) 
Error in as.POSIXlt.numeric(x, tz = tz) : 'origin' must be supplied 

Answer 1

你輸入一個字符串。使用lubridate你可以寫

myFunction <- function(date){ 
    library(lubridate) 
    t0 <- ymd(date) 
    return(list(day(t0), month(t0), week(t0), wday(t0, label=F, abbr=F), year(t0))) 
    }