prevalence.Rmd

---
title: "The prevalence and process of pediatric HIV disclosure: A population-based prospective cohort study in Zimbabwe"
output:
  html_document:
    toc_float: true
---

# Metadata

```{r, echo=FALSE}
  tbl <- data.frame(Element=c("Paper Citation", 
                              "Journal Copy", 
                              "Data Citation"),
                    Details=c("Finnegan, A., Langhaug, L., Schenk, K., Rusakaniko, S., Puffer, E., Choi, Y., Mahaso, S., & Green, E.P. (2019). The prevalence and process of pediatric HIV disclosure: A population-based prospective cohort study in Zimbabwe. *PLOS ONE*, 14(5): e0215659. https://doi.org/10.1371/journal.pone.0215659",
                              "[Open access](https://doi.org/10.1371/journal.pone.0215659)",
                              "Green, E.P., Finnegan, A., Schenk, K., Langhaug, L., & Puffer, E. (2017). R2D2 data repository. [![DOI](https://zenodo.org/badge/115128290.svg)](https://zenodo.org/badge/latestdoi/115128290)"))

tbl %>%
  kable("html") %>%
  kable_styling(bootstrap_options = c("striped", "hover", 
                                      "condensed", "responsive")) %>%
  column_spec(1, width = "10em")
```