setup_toc.R (396B)
1 # Run this interactively as needed to update toc.csv. Should rarely be necessary. 2 3 googlesheets4::read_sheet( 4 "1PgK1ZgOzKqIyxwS6iU_KF5LqBHrb0yx4GN0crVUAaUE", 5 range = "A2:C", 6 col_names = c("part", "number", "title"), 7 col_types = "c" 8 ) |> 9 dplyr::filter(!is.na(.data$part)) |> 10 dplyr::mutate(number_wide = stringr::str_pad(.data$number, 2, pad = "0")) |> 11 readr::write_csv("toc.csv")