Я создаю справочную таблицу из числового вектора и вектора начальных дат. Я хочу, чтобы один из столбцов в моей справочной таблице совпадал с именем моего первого аргумента (для каждой строки должно быть написано «Ekonom»). Это важно, так как я объединю несколько таблиц вместе, и мне нужно разделить свои наблюдения.
Мой ввод:
Ekonom<-c(15,15,15,15,7.5,7.5,15,7.5,7.5,15,15,15,30,0)
sdEkonom<-structure(c(15586, 15950, 16314, 16678, 17042, 17406, 17777,
18141), class = "Date")
Моя программа выглядит следующим образом:
reference_table<-function(x,y){
summer_break<-ifelse(cumsum(x)<=60, 0, ifelse(cumsum(x)>60 & cumsum(x)<=120 , 1,2))
program<-cbind(x,summer_break)
program<-as.data.frame(program)
program<-program%>%rename(points=x)
program<-program%>%mutate(program=as.character(rlang::enexpr(x)))
program<-program%>%mutate(weeks_course=points/1.5)
program<-program%>%mutate(points_expected=lag(cumsum(points)))
program<-program%>%mutate(points_expected=ifelse(is.na(points_expected),0,points_expected))
program<-program%>%mutate(order=1:n())
program<-crossing(y, program)
program<-program%>%arrange(y, order)
program<-program%>%mutate(starttermin=ifelse(order==1,1,0))
program$kull<-cumsum(program$starttermin)
program<-program%>%mutate(start_date=y-1)
program<-program%>%group_by(kull)%>%mutate(start_date_points=start_date+lag(cumsum(weeks_course)*7+3*7+summer_break*12*7))
program<-program%>%group_by(kull)%>%mutate(end_date_points=start_date+cumsum(weeks_course)*7+3*7+summer_break*12*7-1)
program<-program%>%mutate(start_date_points=if_else(is.na(start_date_points),start_date,as.Date(start_date_points)))
program<-program%>%group_by(start_date)%>%mutate(finished_date=max(start_date_points))
program<-program%>%mutate(finished=ifelse(lead(kull, default=0)==kull,0,1))
}
Что особенно важно, так это строка:
program<-program%>%mutate(program=as.character(rlang::enexpr(x)))
Я запускаю программу, записывая:
ekon_program<-reference_table(Ekonom, sdEkonom)
По какой-то причине функция оценила x как "Ekonom", но как «15» в столбце моей программы. Почему это происходит и как мне получить правильный вывод?