Exercise 4-2

# Use "https://raw.githubusercontent.com/
repo <- paste0("https://raw.githubusercontent.com/gagolews",
                "/teaching-data/master/marek/")

files <- list(EUR_AUD = "euraud-20200101-20200630.csv",
              EUR_GBP = "eurgbp-20200101-20200630.csv",
              EUR_USD = "eurusd-20200101-20200630.csv")

euro_data <- lapply(files, 
                    \(x) scan(paste0(repo, x),
                     comment.char = "#"))

euro_data_attributes <- lapply(euro_data,
                         \(x) structure(x,
                                currency_from = "EUR",
                                # How can I fix this? purrr:map2()?
                                currency_to = c("AUD", "GBP", "USD"), 
                                date_from = strptime(20200101,
                                                    format = "%Y%m%d"),
                                date_to = strptime(20200630,
                                                  format = "%Y%m%d"))
                          )