R文本自动化功能

Question

基本上，我创建了一个创建每月员工文件的功能。 但是，我希望能够连续24个月实现自动化。

有没有一种方法可以自动执行并将月度文件自动添加到1个“主文件”中？

下面的代码：（3个月手动完成。...）

employee <- function(date1inp)
{
employee <- c('John Doe','Peter Gynn','Jolie Hope')
salary <- c(21000, 23400, 26800)
tenure_start_date <- c('2016-01-31','2015-06-30','2015-09-30')
mis_date <- c(date1inp)  
data <- data.frame(mis_date,tenure_start_date,employee,salary)
data$tenure <- as.Date(data$mis_date) - as.Date(data$tenure_start_date)
data$salarynew <- (data$tenure/365) * data$salary

return(data)
}

employee_20161231 <- employee(c("2016-12-31"))
employee_20170131 <- employee(c("2016-01-31"))
employee_20170228 <- employee(c("2017-02-28"))

employee_total <- rbind(employee_20161231,employee_20170131,employee_20170228)

Answer 1

seq （隐含.Date ）， lapply和do.call(rbind, ...)可以解决问题。 使用您的employee功能并演示一年的“第一”：

d <- as.Date("2016-01-01")
seq(d, d + 365, by = "month")
#  [1] "2016-01-01" "2016-02-01" "2016-03-01" "2016-04-01" "2016-05-01"
#  [6] "2016-06-01" "2016-07-01" "2016-08-01" "2016-09-01" "2016-10-01"
# [11] "2016-11-01" "2016-12-01"
lst <- lapply(seq(d, d + 365, by = "month"), employee)
lst[[5]]
#     mis_date tenure_start_date   employee salary   tenure      salarynew
# 1 2016-05-01        2016-01-31   John Doe  21000  91 days  5235.616 days
# 2 2016-05-01        2015-06-30 Peter Gynn  23400 306 days 19617.534 days
# 3 2016-05-01        2015-09-30 Jolie Hope  26800 214 days 15712.877 days
results <- do.call("rbind", lst)
head(results, n = 7)
#     mis_date tenure_start_date   employee salary   tenure        salarynew
# 1 2016-01-01        2016-01-31   John Doe  21000 -30 days -1726.02740 days
# 2 2016-01-01        2015-06-30 Peter Gynn  23400 185 days 11860.27397 days
# 3 2016-01-01        2015-09-30 Jolie Hope  26800  93 days  6828.49315 days
# 4 2016-02-01        2016-01-31   John Doe  21000   1 days    57.53425 days
# 5 2016-02-01        2015-06-30 Peter Gynn  23400 216 days 13847.67123 days
# 6 2016-02-01        2015-09-30 Jolie Hope  26800 124 days  9104.65753 days
# 7 2016-03-01        2016-01-31   John Doe  21000  30 days  1726.02740 days

请注意，一年的“月份的最后一天”并不像您想的那样简单：

d <- as.Date("2016-01-31")
seq(d, d + 365, by = "month")
#  [1] "2016-01-31" "2016-03-02" "2016-03-31" "2016-05-01" "2016-05-31"
#  [6] "2016-07-01" "2016-07-31" "2016-08-31" "2016-10-01" "2016-10-31"
# [11] "2016-12-01" "2016-12-31"

一种技巧是采用“每月的第一天”并减去一个：

d <- as.Date("2016-02-01")
seq(d, d + 365, by = "month") - 1
#  [1] "2016-01-31" "2016-02-29" "2016-03-31" "2016-04-30" "2016-05-31"
#  [6] "2016-06-30" "2016-07-31" "2016-08-31" "2016-09-30" "2016-10-31"
# [11] "2016-11-30" "2016-12-31"