In oxford-pharmacoepi/diagCovVaxExposures: A Package Skeleton for Cohort Diagnostics

knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)

library(dplyr)
library(stringr)
library(kableExtra)
load("concept.sets.RDS")

for (i in 1:length(concept.sets)) {
working.name<- concept.sets[[i]]$name[1] 
working.name<- str_replace_all(working.name, "\\[|\\]", "")
working.name<- str_replace(working.name, "EB", "")
working.name<- str_replace(working.name, "CovCoag", "") 
working.name<- str_replace(working.name, "- diagnosis", "") 
working.name<- trimws(working.name)
working.name<-str_to_sentence(working.name)

 cat("###", working.name, "\n")
    print(kable(concept.sets[[i]] %>% 
                  mutate(name=working.name), 
             col.names = c("Concept set", "Concept ID", "Concept name",
                           "Vocabulary", 
                           "Is excluded?",
                           "Include descendants?")) %>% 
 kable_styling(bootstrap_options = c("striped", "bordered")))

    cat('\n\n<!-- -->\n\n') 
   }

oxford-pharmacoepi/diagCovVaxExposures documentation built on Dec. 22, 2021, 5:21 a.m.