"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)"