{"chunk_definitions":[{"chunk_id":"cytpfwnpkqhau","chunk_label":"unnamed-chunk-4","document_id":"1D638EFF","expansion_state":0,"options":{"engine":"r","label":"unnamed-chunk-2"},"row":83,"row_count":1,"visible":true},{"chunk_id":"coo0nu1dc0asm","chunk_label":"unnamed-chunk-5","document_id":"1D638EFF","expansion_state":0,"options":{"engine":"r","label":"unnamed-chunk-13"},"row":101,"row_count":1,"visible":true}],"doc_write_time":1618847803}
\ No newline at end of file
{"chunk_definitions":[],"doc_write_time":1618847819}
\ No newline at end of file
"0","summary(cars)"
"1"," speed "
"1"," dist "
"1","
"
"1"," Min. : 4.0 "
"1"," Min. : 2.00 "
"1","
"
"1"," 1st Qu.:12.0 "
"1"," 1st Qu.: 26.00 "
"1","
"
"1"," Median :15.0 "
"1"," Median : 36.00 "
"1","
"
"1"," Mean :15.4 "
"1"," Mean : 42.98 "
"1","
"
"1"," 3rd Qu.:19.0 "
"1"," 3rd Qu.: 56.00 "
"1","
"
"1"," Max. :25.0 "
"1"," Max. :120.00 "
"1","
"
"0","plot(pressure)"
{"conditions":[],"height":353.5228677379480,"size_behavior":0,"width":572.0000000000000}
\ No newline at end of file
.Rproj.user/shared/notebooks/4B232FC6-test_provided_files/1/s/cbmxtkm48xegz/000003.png

3.05 KiB

File deleted
{"chunk_definitions":[{"chunk_id":"csetup_chunk","chunk_label":"setup","document_id":"AE82589D","expansion_state":0,"options":{"engine":"r","include":false,"label":"setup"},"row":7,"row_count":1,"visible":true},{"chunk_id":"cbmxtkm48xegz","chunk_label":"pressure","document_id":"AE82589D","expansion_state":0,"options":{"echo":false,"engine":"r","label":"pressure"},"row":25,"row_count":1,"visible":true}],"chunk_rendered_width":400,"doc_write_time":1618850464}
\ No newline at end of file
"0","knitr::opts_chunk$set(echo = TRUE)"
{"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
This diff is collapsed.
{"classes":["data.table","data.frame"],"ncol":3,"nrow":988163}
\ No newline at end of file
File deleted
"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
File deleted
"0","## Combination of country and year in data set"
"0","files %>% select(YEAR,COUNTRY) %>% group_by(COUNTRY) %>% distinct()"
{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":333}
\ No newline at end of file
File deleted
"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"