R/shinyVisApp.R

In chapmandu2/CollateralVulnerability2016: Collateral Vulnerability Pipeline

#' Shiny Visualisation App
#'
#' Provides an interactive view of Collateral Vulnerability pipeline results
#'
#' @param con A \code{SQLiteConnection} object to the database
#' @param table_name The table in the SQLite database containing the expression data.  The table should have fields named
#'   patient_id, gene_id and value where gene_id is an ensembl id.  Default tcga_rnaseq_data
#' @return Launches an interactive Shiny application
#' @export
#' @import shiny
shinyVisApp <- function(con, table_name = "tcga_rnaseq_data") {

    shiny::shinyApp(
        ui = shinyVisUI(),
        server = function(input, output) {
            shinyVisServer(input, output, con, table_name)
        }
    )
}