In windyzn/urinaryDBP:

# Only set if the Rmd file is not in the parent directory (ie. 'projectname/')
knitr::opts_knit$set(root.dir = '../')

knitr::opts_chunk$set(collapse = TRUE, echo = FALSE, message = FALSE, warning = FALSE)
library(tidyverse)
devtools::load_all()
load_data(update = TRUE)
set_options()
# extrafont::loadfonts(device="win")

dsMed <- read.csv("../promise/data-raw/all-db-form121med.csv")

Number of subjects n = 746

dsMed %>% 
  dplyr::group_by(SID) %>%
  dplyr::summarise(n = n())

Use of statins

statins <- c("Pravastatin", "Pravachol", "Selektine",
             "Rosuvastatin", "Crestor", "Rosulip", "Zuvamor",
             "Atorvastatin", "Lipitor", "Atorva")

dsMed %>% 
  dplyr::group_by(MedName) %>% 
  dplyr::filter(MedName %in% statins) %>%
  dplyr::summarise(n = n())

windyzn/urinaryDBP documentation built on May 4, 2019, 6:32 a.m.