44c077e5 · 44c077e5 · 44c077e5 · 44c077e5 · 44c077e5 · 44c077e5
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000002.csv
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000002.csv
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000003.metadata
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000003.metadata
+{"classes":["data.table","data.frame"],"ncol":3,"nrow":988163}
\ No newline at end of file
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000003.rdf
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000003.rdf
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000004.csv
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000004.csv
+"0","## Number of sum of sample farms - observation - not unique"
+"0","files %>% select(YEAR,COUNTRY) %>% group_by(COUNTRY) %>% count() %>% print(n=28)"
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000005.metadata
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000005.metadata
+{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":28}
\ No newline at end of file
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000005.rdf
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000005.rdf
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000006.csv
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000006.csv
+"0","## Combination of country and year in data set"
+"0","files %>% select(YEAR,COUNTRY) %>% group_by(COUNTRY) %>% distinct()"
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000007.metadata
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000007.metadata
+{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":333}
\ No newline at end of file
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000007.rdf
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000007.rdf
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000002.csv
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000002.csv
+"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"
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000003.metadata
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000003.metadata
+{"classes":["tbl_df","tbl","data.frame"],"ncol":4,"nrow":0}
\ No newline at end of file
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000003.rdf
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000003.rdf
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000004.csv
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000004.csv
+"0","# writexl::write_xlsx(x=requested_and_provided,path=""D:/public/data/fadn/lieferung_20210414/missing_countries_years.xlsx"")"
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c7lfrtn1dx3vq/000002.csv
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c7lfrtn1dx3vq/000002.csv
+"0","library(tidyverse)"
+"0","library(readxl)"
+"0","library(data.table)"
+"2","Registered S3 method overwritten by 'data.table':
+  method           from
+  print.data.table     
+"
+"2","data.table 1.14.0 using 32 threads (see ?getDTthreads).  Latest news: r-datatable.com
+"
+"2","
+Attache Paket: data.table
+
+"
+"2","The following objects are masked from package:dplyr:
+
+    between, first, last
+
+"
+"2","The following object is masked from package:purrr:
+
+    transpose
+
+"
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000002.csv
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000002.csv
+"0","file_names <- list.files(""D:/public/data/fadn/lieferung_20210414/csv"",include.dirs = TRUE)"
+"0","file_names_gpg <- file_names[grepl("".gpg"",file_names)]"
+"0","length(file_names_gpg)"
+"1","[1]"
+"1"," 256"
+"1","
+"
+"0","file_names <- file_names[!grepl("".gpg"",file_names)]"
+"0","library(tidyverse)"
+"2","Registered S3 methods overwritten by 'dbplyr':
+  method         from
+  print.tbl_lazy     
+  print.tbl_sql      
+"
+"2","[30m-- [1mAttaching packages[22m ---------------------------------------------------------------------------------------------------------- tidyverse 1.3.1 --[39m
+"
+"2","[30m[32mv[30m [34mggplot2[30m 3.3.3     [32mv[30m [34mpurrr  [30m 0.3.4
+[32mv[30m [34mtibble [30m 3.1.0     [32mv[30m [34mdplyr  [30m 1.0.5
+[32mv[30m [34mtidyr  [30m 1.1.3     [32mv[30m [34mstringr[30m 1.4.0
+[32mv[30m [34mreadr  [30m 1.4.0     [32mv[30m [34mforcats[30m 0.5.1[39m
+"
+"2","[30m-- [1mConflicts[22m ------------------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
+[31mx[30m [34mdplyr[30m::[32mfilter()[30m masks [34mstats[30m::filter()
+[31mx[30m [34mdplyr[30m::[32mlag()[30m    masks [34mstats[30m::lag()[39m
+"
+"0","file_names <- file_names %>% tibble(name=.) %>% mutate(country=str_sub(name,1,3),year=str_sub(name,4,7)) "
+"0","file_names %>% print(n=30)"
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000003.metadata
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000003.metadata
+{"classes":["tbl_df","tbl","data.frame"],"ncol":3,"nrow":333}
\ No newline at end of file
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000003.rdf
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000003.rdf
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000004.csv
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000004.csv
+"0","file_names %>% group_by(year) %>% count()"
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000005.metadata
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000005.metadata
+{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":15}
\ No newline at end of file
--- a/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000005.rdf
+++ b/.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000005.rdf
		{"classes":["data.table","data.frame"],"ncol":3,"nrow":988163}
		\ No newline at end of file
		"0","## Number of sum of sample farms - observation - not unique"
		"0","files %>% select(YEAR,COUNTRY) %>% group_by(COUNTRY) %>% count() %>% print(n=28)"
		{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":28}
		\ No newline at end of file
		"0","## Combination of country and year in data set"
		"0","files %>% select(YEAR,COUNTRY) %>% group_by(COUNTRY) %>% distinct()"
		{"classes":["tbl_df","tbl","data.frame"],"ncol":4,"nrow":0}
		\ No newline at end of file