Update code

Author: mine-cetinkaya-rundel

exercises/01-ex-data-hello.Rmd

@@ -28,15 +28,15 @@ How many observations and how many variables does this data frame have?^[The [`m
       )
 
     mcu_films_1_to_5 <- mcu_films_scaled %>%
-      slice(n = 1:5) %>%
+      slice_head(n = 5) %>%
       mutate(across(everything(), as.character))
 
     mcu_films_n <- mcu_films_scaled %>%
-      slice(n = nrow(mcu_films)) %>%
+      slice_tail(n = 1) %>%
       mutate(across(everything(), as.character))
 
     mcu_films_filler <- mcu_films_scaled %>%
-      slice(n = 1) %>%
+      slice_head(n = 1) %>%
       mutate(across(everything(), str_replace, ".*", "..."))
 
     mcu_films_1_to_5 %>%
@@ -72,15 +72,15 @@ How many observations and how many variables does this data frame have?^[The [`r
       )
 
     run17_1_to_5 <- run17_to_print %>%
-      slice(n = 1:5) %>%
+      slice_head(n = 5) %>%
       mutate(across(everything(), as.character))
 
     run17_n <- run17_to_print %>%
-      slice(n = nrow(run17)) %>%
+      slice_tail(n = 1) %>%
       mutate(across(everything(), as.character))
 
     run17_filler <- run17_to_print %>%
-      slice(n = 1) %>%
+      slice_head(n = 1) %>%
       mutate(across(everything(), str_replace, ".*", "..."))
 
     run17_1_to_5 %>%
@@ -246,19 +246,19 @@ The study found that the number of late-coming parents increased significantly w
     daycare_fines_1_to_5 <- daycare_fines %>%
       rename(study_period = study_period_4) %>%
       select(center, week, group, late_pickups, study_period) %>%
-      slice(n = 1:5) %>%
+      slice_head(n = 5) %>%
       mutate(across(everything(), as.character))
 
     daycare_fines_200 <- daycare_fines %>%
       rename(study_period = study_period_4) %>%
       select(center, week, group, late_pickups, study_period) %>%
-      slice(n = 200) %>%
+      slice_head(n = 200) %>%
       mutate(across(everything(), as.character))
 
     daycare_fines_filler <- daycare_fines %>%
       rename(study_period = study_period_4) %>%
       select(center, week, group, late_pickups, study_period) %>%
-      slice(n = 1) %>%
+      slice_head(n = 1) %>%
       mutate(across(everything(), str_replace, ".*", "..."))
 
     daycare_fines_1_to_5 %>%
@@ -330,15 +330,15 @@ A blank cell indicates that data for that variable was not available for a given
         )
 
     smoking_1_to_5 <- smoking_to_print %>%
-      slice(n = 1:5) %>%
+      slice_head(n = 5) %>%
       mutate(across(everything(), as.character))
 
     smoking_n <- smoking_to_print %>%
-      slice(n = nrow(smoking)) %>%
+      slice_tail(n = 1) %>%
       mutate(across(everything(), as.character))
 
     smoking_filler <- smoking_to_print %>%
-      slice(n = 1) %>%
+      slice_head(n = 1) %>%
       mutate(across(everything(), str_replace, ".*", "..."))
 
     smoking_1_to_5 %>%
@@ -600,7 +600,8 @@ The Stanford Open Policing project gathers, analyzes, and releases records from
       mutate(across(everything(), as.character))
 
     sop_top    <- sop_to_print %>% filter(State == "AZ")
-    sop_filler <- sop_to_print %>% slice(n = 1) %>% 
+    sop_filler <- sop_to_print %>% 
+      slice_head(n = 1) %>%
       mutate(across(everything(), str_replace, ".*", "..."))
     sop_bottom <- sop_to_print %>% filter(State == "WI")
 
@@ -695,12 +696,12 @@ The diagonal line on the plot is the $x = y$ line; if a name appeared on this li
     cat_name_props <- name_props %>%
       filter(species == "Cat") %>%
       rename(cat_prop = prop) %>%
-      slice(1:30)
+      slice_head(n = 30)
 
     dog_name_props <- name_props %>%
       filter(species == "Dog") %>%
       rename(dog_prop = prop) %>%
-      slice(1:30)
+      slice_head(n = 30)
 
     comb_name_props <- inner_join(cat_name_props, dog_name_props, 
                                   by = "animal_name") %>%