{"classes":["tbl_df","tbl","data.frame"],"ncol":4,"nrow":0}
\ No newline at end of file
File deleted
"0","# writexl::write_xlsx(x=requested_and_provided,path=""D:/public/data/fadn/lieferung_20210414/missing_countries_years.xlsx"")"
"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
"
"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)"
{"classes":["tbl_df","tbl","data.frame"],"ncol":3,"nrow":333}
\ No newline at end of file
File deleted
"0","file_names %>% group_by(year) %>% count()"
{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":15}
\ No newline at end of file
File deleted
"0","file_names %>% filter(country==""POL"")"
{"classes":["tbl_df","tbl","data.frame"],"ncol":3,"nrow":12}
\ No newline at end of file
File deleted
"0","file_names <- file_names %>% mutate(provided=""y"")"
"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)"
"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)"
{"classes":["tbl_df","tbl","data.frame"],"ncol":3,"nrow":333}
\ No newline at end of file
File deleted
"0","file_names %>% group_by(year) %>% count()"
{"classes":["grouped_df","tbl_df","tbl","data.frame"],"ncol":2,"nrow":15}
\ No newline at end of file
File deleted