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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.