如何在r中使用months_between和readline函數？

Question

所以最近我學會了使用months_between和readline（）

如何使用readline（）來使用month_between？

我想知道用戶從僱用日期（其中HIREDATE是氟里昂的ReadLine（））到現在爲止有多少天工作+何日僱用日期是

前） 「你被僱傭週三和工作了283天直到現在」

，現在我嘗試是這樣的

find_day <- function(){ 
response <- readline(prompt='When were you hired?(XXXX-XX-XX)') 
x <- Sys.Date()-as.Date(response) 
y <- format(response,'%A') 
print(x) 
print(y) 
} 

我知道有很多的錯誤，但只是想知道我怎麼能解決這個問題的例子

Answer 1

lubridate包將幫助你在這裏。這裏是執行你的一種計算方法：

response <- readline(prompt='When were you hired? (XXXX-XX-XX)(year-mon-day)') 

response <- ymd(response) 

day_of_week <- wday(response, label=TRUE, abbr=FALSE) 

time_since_hire <- as.period(interval(response,now()), unit="days") 

paste0("You were hired on ",day_of_week," and worked for ",day(time_since_hire)," days until now.") 

輸出示例：

[1]「你被僱傭在週六和工作777天，直到如今」

（FYI months_between通常是Oracle或SQL類似功能。）