In evanmascitti/soiltestr: Functions for Laboratory Soil Testing

knitr::opts_chunk$set(echo = FALSE)

\begin{landscape }

printable_datasheet_tbl <- readr::read_rds(params$rds_file) %>% 
  proctor_datasheet(write = FALSE) 

hlines <- printable_datasheet_tbl %>% 
  dplyr::group_by(sample_name, effort) %>% 
  dplyr::group_split() %>% 
  length()


hline_indices <- vector("double")

for (i in 1:hlines) {
 hline_indices[[i]] <- 5 * i
}

printable_datasheet_tbl %>% 
  kableExtra::kbl(format = 'latex') %>% 
  kableExtra::collapse_rows(columns = 2) %>% 
  kableExtra::row_spec(row = hline_indices, hline_after = TRUE) %>%
  kableExtra::row_spec(row = 0, bold = TRUE) %>% 
  kableExtra::kable_styling(
    latex_options = 'scale_down'
  )

\end{landscape }

evanmascitti/soiltestr documentation built on Oct. 6, 2022, 5:32 p.m.