"0","data_requested_general <- read_xlsx(path = ""D:/public/data/fadn/lieferung_20210414/FADN data request forms_March2021_MM210326.xlsx"",sheet = 2,range = ""A365:P393"")"
"2","New names:
* `` -> ...1
"
"0","colnames(data_requested_general)[1] <- ""country"""
"0","data_requested_general <- data_requested_general %>% mutate(country=str_sub(country,2,4))"
"0","data_requested_general_long <- data_requested_general %>% pivot_longer(-country)"
"0","data_requested_general_long <- data_requested_general_long %>% filter(value==""y"") %>% rename(year=name,requested=value)"
"0","requested_and_provided <- data_requested_general_long %>% full_join(file_names %>% select(-name),by=c(""country"",""year"")) %>% filter(is.na(requested ) | is.na(provided)) "
"0","## if empty, than everything is fine"
"0","requested_and_provided"