Update functions.R

jrosell · Dec 28, 2023 · f31a491 · f31a491
1 parent 4719011
commit f31a491
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/functions.R b/functions.R
@@ -72,12 +72,14 @@ clean_data <- function(x){
 # This reads in the data.
 get_data <- function(){
   print("unemp_data")
-  list(
+  urls <- list(
     "https://raw.githubusercontent.com/b-rodrigues/modern_R/master/datasets/unemployment/unemp_2013.csv",
     "https://raw.githubusercontent.com/b-rodrigues/modern_R/master/datasets/unemployment/unemp_2014.csv",
     "https://raw.githubusercontent.com/b-rodrigues/modern_R/master/datasets/unemployment/unemp_2015.csv",
-    "https://raw.githubusercontent.com/b-rodrigues/modern_R/master/datasets/unemployment/unemp_2016.csv",
-  ) |>
+    "https://raw.githubusercontent.com/b-rodrigues/modern_R/master/datasets/unemployment/unemp_2016.csv"
+  )
+  print(urls)
+  urls |>
     purrr::map_dfr(readr::read_csv) %>%
     purrr::map_dfr(clean_data)
 }