In shug0131/cctu: In-House Functions for Report Writing at Cambridge Clinical Trials Unit

```r}, echo=FALSE, results='asis', message=FALSE, warning=FALSE} tab <- xml2::read_html("{{file_name}}") %>% rvest::html_nodes("table") %>% rvest::html_table(header = TRUE, fill = TRUE)

Remove blank rows -Pandoc can't deal with them

tab <- tab[[1]] blank <- apply(tab, 1, function(x) { all(is.na(x) | trimws(x) == "") }) knitr::kable(tab[!blank, ], format = "html", row.names = FALSE) %>% kableExtra::kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive")) ```

shug0131/cctu documentation built on Feb. 15, 2025, 3:27 p.m.