fix file copying

93-appendixC.Rmd

@@ -50,14 +50,22 @@ In this Section, we address some of the most common data wrangling we've encount
 
 Let's load an example movies dataset, pare down the rows and columns a bit, and then show the first 10 rows using `slice()`.
 
-```{r}
+```{r, eval=FALSE}
 movies_ex <- read_csv("https://moderndive.com/data/movies.csv") %>%
   filter(type %in% c("action", "comedy", "drama", "animated", "fantasy", "rom comedy")) %>%
   select(-over200)
 
 movies_ex %>%
   slice(1:10)
 ```
+```{r, echo=FALSE, purl=FALSE}
+movies_ex <- read_csv("data/movies.csv") %>%
+  filter(type %in% c("action", "comedy", "drama", "animated", "fantasy", "rom comedy")) %>%
+  select(-over200)
+
+movies_ex %>%
+  slice(1:10)
+```
 
 
 ### Dealing with missing values {#appendix-missing-values}

index.Rmd

@@ -163,7 +163,7 @@ if (is_html_output()) {
   )
   from_vec <- here::here("data", data_files)
   to_vec <- here::here("docs", "data", data_files)
-  purrr::walk(from_vec, file.copy, to = to_vec, overwrite = TRUE)
+  purrr::walk2(from_vec, to_vec, file.copy, overwrite = TRUE)
   
   # To be updated to include the actual link to labs website
   # when Albert has those ready