R/equity_research_app.R

In zac-garland/equityresearch: Equity Research in R

equity_research <- function(){

  appDir <- system.file("equity-research", package = "equityresearch")
  if (appDir == "") {
    stop("Could not find myapp. Try re-installing `equityresearch`.", call. = FALSE)
  }

  shiny::runApp(appDir, display.mode = "normal")


}