R/sharedApps.R

In acidgenomics/r-koopa: Shell Bootloader for Bioinformatics

#' Supported shared apps for current platform.
#'
#' @export
#' @note Updated 2023-10-16.
#'
#' @return `character`.
#' Application names.
sharedApps <- function() {
    json <- .importAppJson()
    sysDict <- .sysDict()
    lst <- Map(
        f = .isAppSupported,
        name = names(json),
        json = json,
        MoreArgs = list("sysDict" = sysDict)
    )
    lgl <- unlist(x = lst, recursive = FALSE, use.names = TRUE)
    if (!any(lgl)) {
        return(character())
    }
    json <- json[lgl]
    out <- sort(names(json))
    out
}



#' @export
#' @rdname sharedApps
installedSharedApps <- function() {
    sort(list.dirs(
        path = koopaAppPrefix(),
        full.names = FALSE,
        recursive = FALSE
    ))
}