inst/program/t_ex.R

In kismet303/lopo3000: LoPo 3000 Experimental package using RShiny for interactive LoPo

#mainpath<-"/home/bceuser/remusatp/General/lopo/"
#FilterL<-"RHUPH20_SE" 
#source(paste0(mainpath,"/functions/filters.R"))



###Import data
ADSL1 <- read_sas(paste0(main_path,"Studies/",study,"/data/ADAM/adsl.sas7bdat"))
ADEX1 <- read_sas(paste0(main_path,"Studies/",study,"/data/ADAM/adex.sas7bdat"))
###USe filter

fff <- filters(ADSL1,ADEX1,FilterL)
ADSL <- fff[[1]]
ADEX <- fff[[2]]


ADSLa<-ADSL[,c("USUBJID","ARM","ARMCD")]

ADEX <- ADEX %>% 
  left_join(ADSLa, by = "USUBJID")  




## @knitr answer
cat(fff[[3]])
cat("      ")

options(warn=-1)
a<-t_summary_by(
  x = ADEX$AVAL,
  by =    factor( ADEX$PARAM),
  col_by = factor(ADEX$ARMCD),
  col_N = table(ADSL$ARMCD),
  total = "All Patients"
) 

print(a)

options(warn=0)