In Monash-RISE/riseR:

setwd("C:/Users/RISE Fiji/Documents/GitHub/riseR/RISE_FJ/T1_child_sampling")

library (tidyverse)
library (lubridate)
library (kableExtra)
library (tinytex)

knitr::opts_chunk$set(echo = TRUE, warning=FALSE) #this stops warnings from displaying in html
source("O3_T1_FJ-summary.R")

Consent Data:

Consent QC Check

There are r nrow(child.consent.check_final) children that are missing consents and need to be collected:

r child.consent.check_final2 <- child.consent.check_final %>% filter (is.na(consent_new2)) %>% rename (settlement = settlement_barcode, house_no = extract_house_no, consent_on_record = child.signed.yn_pl, completed_blood = blood_check2, completed_height = height_check2) %>% mutate(completed_survey = ifelse(!is.na(cough), 1, 0)) %>% select (settlement, house_no, today, name, child_dob, completed_survey, consent_on_record, completed_blood, blood, consent3_2, completed_height, height.weight, consent3_3) %>% arrange (settlement, house_no)

kable(child.consent.check_final2) %>%
   kable_styling(bootstrap_options = c("striped", "hover", "bordered", "condensed", "responsive"), full_width = F, font_size = 8)

Monash-RISE/riseR documentation built on Dec. 11, 2019, 9:49 a.m.