R/run_radish_app.R

In GENOM-IC-Cochin/shiny-rnaseq-viz: RNA-Seq Analysis Dashboard In Shiny

#' Runs the Radish application
#' Interactively or not, dependending on the context.
#' @param ... parameters passed to runApp and shinyAppDir
#' @import shiny
#' @importFrom magrittr %>%
#' @importFrom magrittr %<>%
#' @import ggplot2
#' @import dplyr
#' @importFrom BiocGenerics rowSums
#' @importFrom SummarizedExperiment assay
#' @importFrom stats na.omit prcomp relevel setNames
#' @importFrom utils head write.csv combn
#' @importFrom grDevices colorRampPalette dev.off pdf
#' @export
run_radish_app <- function(...) {
  if(interactive()) {
    runApp(appDir = system.file("app", package = "Radish"))
  } else {
    shinyAppDir(appDir = system.file("app", package = "Radish"), ...)
  }
}