I am getting this error while manipulating a dataframe in r function. The code is shown below:
daysMaintenance <- function(tid, make, component){
df <- read.csv(paste(sep="","normal/turbine_",tid,"_running.csv"),header=T)
check_date <- "2008-11-1"
df <- df[,c("Time_min")]
df <- df %>% mutate(Day = as.integer(Time_min/1445) + 1)
df <- df %>% group_by(Day) %>% summarise_at(vars(c(Time_min)), funs(max))
df <- df %>% mutate(Date = (as.Date(check_date) + df$Day - 1))
full.list = seq(from = as.Date(min(df$Date)), to = as.Date(max(df$Date)), by = 1)
diffs <- full.list[!full.list %in% df$Date]
diffs <- data.frame(diffs)
colnames(diffs) <- c("no_data_Date")
return (diffs)
}
Why do I get this error and how to resolve it? Thank you in advance.