library(dplyr) library(magrittr) library(skimr) knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE) options(knitr.table.format = "pipe")
locked_day0_data <- params$locked_day0_data locked_allday7fu_data <- params$locked_allday7fu_data locked_allday28fu_data <- params$locked_allday28fu_data locked_hospit_data <- params$locked_hospit_data locked_spa_sco_data <- params$locked_spa_sco_data spa_cgei_data <- params$spa_cgei_data locked_spa_hcpi_data <- params$locked_spa_hcpi_data spa_fa_data <- params$spa_fa_data
\newpage
r intro_str
write(formats2h2("Explore Day 0 data"), stderr())
r if (Sys.getenv('TIMCI_COUNTRY') == "Tanzania" || Sys.getenv('TIMCI_COUNTRY') == "India"){'Pragmatic cluster Randomised Controlled Trial (RCT)'} else{'Longitudinal Observational Study (LS)'}
locked_day0_data %>% dplyr::group_by(facility) %>% skim()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.