inst/program/l_ex.R

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

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

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


ADEXb<-ADEX[,c("USUBJID","EXTRT","EXDOSE","EXDOSU","EXDOSFRQ","EXROUTE","EXLOC")]

## @knitr answer
cat(fff[[3]])   ##subtitle related to filter
cat("      ")

kable(ADEXb ,"latex", longtable=TRUE,  booktabs = T )   %>%
  kable_styling(latex_options = c("repeat_header"), repeat_header_text = "")
 

date()