это мои данные https://drive.google.com/open?id=1jLH8Oe4iGYtPjtKoe_H5QZwhFJjSA2PW
Я сделал это
library(readxl)
library(tidyverse)
library(dplyr)
sheets<- excel_sheets('output.xlsx')
locsheets<-lapply(excel_sheets('output.xlsx'),
read_excel, path = 'output.xlsx',
na="")
names(locsheets)<- sheets
datadwr<- locsheets
meanmonth<-lapply(datadwr, function (x) x %>%
group_by(Engelse_naam, monthyr = format(datum, format = '%Y-%m-01')) %>%
summarise(mean = mean(waarde))%>%
spread(Engelse_naam, mean))
Я использовал один и тот же скрипт некоторое время, и он работал отлично, но теперь я всегда получаю этоошибка.
Error in eval_tidy(enquo(var), var_env) : object 'Engelse_naam' not found
Я ничего не изменил, поэтому я не знаю, что сейчас не так и почему написано, что переменная не найдена.
Можете ли вы помочь мне обнаружить проблему?