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")

Positive LIMS Data from Newtown settlement

r feces_kk_final <- feces_kk_final %>% filter (settlement == "Newtown") %>% filter (AscarisLumbricoides > 0 | Hookworm > 0 | TaeniaSpss > 0 | TrichurisTrichura > 0 |StrongyloidesStercoralis > 0 | GeneralComments > 0) %>% select (-child_dob, -date_of_pickup, -feces_barcode, -date_sample_reception, -date.kk1, -date.kk2, -Barcode_kk_slide)

There were a total of r nrow(feces_kk_final) feces samples tested from Newtown

kable(feces_kk_final) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "bordered", "condensed",     "responsive"),
                full_width = F, font_size = 11) %>%
  row_spec(which(feces_kk_final$AscarisLumbricoides > 0 | 
                 feces_kk_final$Hookworm > 0 | 
                 feces_kk_final$TaeniaSpss > 0 | 
                 feces_kk_final$TrichurisTrichura > 0 |
                 feces_kk_final$StrongyloidesStercoralis > 0 |
                 feces_kk_final$GeneralComments > 0),
           bold = T)

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