R/cargarApp.R

In olitroski/RXapp: Etiquetar RX files

#' @title cargarApp
#' @description Carga la app para etiquetar los rx.
#' @return App
#' @export
#' @examples
#' # barbiApp()
#' @import shiny

barbiApp <- function(){
    appDir <- system.file("shiny-examples", "rxapp", package = "RXapp")

    # Por si no hubiera nada
    if (appDir == "") {
        stop("Directorio de Apps no existe", call. = FALSE)
    }

    # Ejecutar la app
    shiny::runApp(appDir, display.mode = "normal")
}