.Rproj.user/shared/notebooks/4B232FC6-test_provided_files/1/s/csetup_chunk/000002.csv 0 → 100644
View file @ bff199ad
"0","knitr::opts_chunk$set(echo = TRUE)"
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/27AE6382AD5A8D/chunks.json 0 → 100644
View file @ bff199ad
{"chunk_definitions":[{"chunk_id":"csetup_chunk","chunk_label":"setup","document_id":"D4546146","expansion_state":0,"options":{"engine":"r","include":false,"label":"setup"},"row":7,"row_count":1,"visible":true},{"chunk_id":"c7lfrtn1dx3vq","chunk_label":"unnamed-chunk-1","document_id":"D4546146","expansion_state":0,"options":{"engine":"r","label":"unnamed-chunk-3"},"row":35,"row_count":1,"visible":true},{"chunk_id":"calt1rw48k7sm","chunk_label":"unnamed-chunk-2","document_id":"D4546146","expansion_state":0,"options":{"engine":"r","label":"unnamed-chunk-1"},"row":52,"row_count":1,"visible":true},{"chunk_id":"cw6z6bxc3uc0b","chunk_label":"unnamed-chunk-3","document_id":"D4546146","expansion_state":0,"options":{"engine":"r","label":"unnamed-chunk-4"},"row":64,"row_count":1,"visible":true},{"chunk_id":"c4g6hm73zwo4m","chunk_label":"unnamed-chunk-4","document_id":"D4546146","expansion_state":0,"options":{"engine":"r","label":"unnamed-chunk-5"},"row":80,"row_count":1,"visible":true}],"default_chunk_options":{"echo":true,"error":false},"doc_write_time":1618916083,"working_dir":null}
\ No newline at end of file
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000002.csv 0 → 100644
View file @ bff199ad
This diff is collapsed.
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000003.metadata 0 → 100644
View file @ bff199ad
{"classes":["data.table","data.frame"],"ncol":3,"nrow":988163}
\ No newline at end of file
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000003.rdf 0 → 100644
View file @ bff199ad
File added
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000004.csv 0 → 100644
View file @ bff199ad
"0","## Number of sum of sample farms - observation - not unique"
"0","files %>% select(YEAR,COUNTRY) %>% group_by(COUNTRY) %>% count() %>% print(n=28)"
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000005.metadata 0 → 100644
View file @ bff199ad
{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":28}
\ No newline at end of file
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000005.rdf 0 → 100644
View file @ bff199ad
File added
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000006.csv 0 → 100644
View file @ bff199ad
"0","## Combination of country and year in data set"
"0","files %>% select(YEAR,COUNTRY) %>% group_by(COUNTRY) %>% distinct()"
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000007.metadata 0 → 100644
View file @ bff199ad
{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":333}
\ No newline at end of file
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c4g6hm73zwo4m/000007.rdf 0 → 100644
View file @ bff199ad
File added
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000002.csv 0 → 100644
View file @ bff199ad
"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"
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000003.metadata 0 → 100644
View file @ bff199ad
{"classes":["tbl_df","tbl","data.frame"],"ncol":4,"nrow":0}
\ No newline at end of file
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000003.rdf 0 → 100644
View file @ bff199ad
File added
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c53msamlrci0n/000004.csv 0 → 100644
View file @ bff199ad
"0","# writexl::write_xlsx(x=requested_and_provided,path=""D:/public/data/fadn/lieferung_20210414/missing_countries_years.xlsx"")"
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/c7lfrtn1dx3vq/000002.csv 0 → 100644
View file @ bff199ad
"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
"
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000002.csv 0 → 100644
View file @ bff199ad
"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","-- Attaching packages ---------------------------------------------------------------------------------------------------------- tidyverse 1.3.1 --
"
"2","v ggplot2 3.3.3 v purrr  0.3.4
v tibble  3.1.0 v dplyr  1.0.5
v tidyr  1.1.3 v stringr 1.4.0
v readr  1.4.0 v forcats 0.5.1
"
"2","-- Conflicts ------------------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag() masks stats::lag()
"
"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)"
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000003.metadata 0 → 100644
View file @ bff199ad
{"classes":["tbl_df","tbl","data.frame"],"ncol":3,"nrow":333}
\ No newline at end of file
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000003.rdf 0 → 100644
View file @ bff199ad
File added
.Rproj.user/shared/notebooks/FD0AC2A5-test_provided_files/1/s/calt1rw48k7sm/000004.csv 0 → 100644
View file @ bff199ad
"0","file_names %>% group_by(year) %>% count()"