Update functions.R

jrosell · Dec 28, 2023 · 4719011 · 4719011
1 parent 5f9f69d
commit 4719011
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/functions.R b/functions.R
@@ -48,6 +48,7 @@ clean_unemp <- function(unemp_data,
 
 # This is a helper function to clean the data
 clean_data <- function(x){
+  print("clean_data")
   x %>%
     janitor::clean_names() %>%
     mutate(level = case_when(
@@ -70,6 +71,7 @@ clean_data <- function(x){
 
 # This reads in the data.
 get_data <- function(){
+  print("unemp_data")
   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",