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 Nov. 10, 2023, 12:03 p.m.