R/call_phewas.R

In aneuraz/multiWAS: multiWAS

#' call_phewas
#' 
#' Launches the shiny webapp for multimodal PheWAS
#' 
#' @param .config_file: config file as described for the DWHtools2 package (https://github.com/aneuraz/DWHtools2)
#' @param .local: to load local files instead of extracting data from a database
#' @param .bio_file: RData file containing a 'bio' data.frame of biological test results data
#' @param .concepts_file: RData file containing a 'concepts' data.frame of UMLS concepts
#' @param .icd_file: RData file containing a 'cim' data.frame of ICD codes
#' 
#' @export
call_phewas = function(.config_file = NULL, .local = FALSE, .bio_file = NULL,.concepts_file= NULL,.icd_file=NULL, ...) {
  #.GlobalEnv$.phewasWD = .phewasWD
  .GlobalEnv$local = .local
  .GlobalEnv$config_file = .config_file
  .GlobalEnv$bio_file= .bio_file
  .GlobalEnv$concepts_file= .concepts_file
  .GlobalEnv$icd_file= .icd_file
  shiny::runApp(system.file('phewas_app', package='multimodalPhewas'), ...)
}