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