inst/program/l_ae_ser.R

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

###Import data
      ADSL1 <- read_sas(paste0("Studies/",study,"/data/ADAM/adsl.sas7bdat"))
      ###USe filter
      fff <- filters(ADSL1,ADAE1,FilterL)
      ADSL <- fff[[1]]
      ###Get report
      ## @knitr answer
      cat(fff[[3]])
      cat("      ")
      ####summary table from TERN here ? `
      date()