From ed660c4d1bf7b85c45fe64659f09699513c7b036 Mon Sep 17 00:00:00 2001 From: Jeffrey Dickinson Date: Thu, 28 Mar 2024 20:34:51 +0000 Subject: [PATCH] Run styler #90 #91 --- data-raw/pc.R | 22 ++++++++++++++-------- data-raw/pp.R | 2 +- 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/data-raw/pc.R b/data-raw/pc.R index d5c43c5..2798206 100644 --- a/data-raw/pc.R +++ b/data-raw/pc.R @@ -88,18 +88,24 @@ PC$PCTPTNUM <- PC$t ## PCTPT ---- PC$PCTPT <- ifelse(PC$PCTPTNUM == -0.5, "Pre-dose", - ifelse(PC$PCTPTNUM == 0.08, "5 Min Post-dose", - ifelse(PC$PCTPTNUM == 0.5, "30 Min Post-dose", paste0(PC$PCTPTNUM, "h Post-dose")))) + ifelse(PC$PCTPTNUM == 0.08, "5 Min Post-dose", + ifelse(PC$PCTPTNUM == 0.5, "30 Min Post-dose", paste0(PC$PCTPTNUM, "h Post-dose")) + ) +) PC_Urine <- PC %>% filter(PCTPTNUM %in% c(6.00, 12.00, 24.00, 48.00)) %>% - mutate(PCSPEC = "URINE", - PCTPT = case_when(PCTPT == "6h Post-dose" ~ "0-6h Post-dose", - PCTPT == "12h Post-dose" ~ "6-12h Post-dose", - PCTPT == "24h Post-dose" ~ "12-24h Post-dose", - PCTPT == "48h Post-dose" ~ "24-48h Post-dose"), - Conc = Urine) + mutate( + PCSPEC = "URINE", + PCTPT = case_when( + PCTPT == "6h Post-dose" ~ "0-6h Post-dose", + PCTPT == "12h Post-dose" ~ "6-12h Post-dose", + PCTPT == "24h Post-dose" ~ "12-24h Post-dose", + PCTPT == "48h Post-dose" ~ "24-48h Post-dose" + ), + Conc = Urine + ) PC <- bind_rows(PC, PC_Urine) diff --git a/data-raw/pp.R b/data-raw/pp.R index de97caf..315863a 100644 --- a/data-raw/pp.R +++ b/data-raw/pp.R @@ -117,7 +117,7 @@ pp_Ae <- pc1u %>% # CLR pp_AUC_sub <- subset(pp_AUC, select = c("STUDYID", "DOMAIN", "USUBJID", "PPCAT", "AUC")) pp_CLR <- merge(pp_Ae, pp_AUC_sub, by = c("STUDYID", "DOMAIN", "USUBJID", "PPCAT")) %>% - mutate(pp_CLR = pp_Ae / AUC * 1000 / 60 ) %>% + mutate(pp_CLR = pp_Ae / AUC * 1000 / 60) %>% glimpse() ## Add all require variables -----