R/utilities.R

In Bioconductor/Gen3: Interface to Gen3 Data Services Within AnVIL

.is_scalar <-
    function(x)
{
    length(x) == 1L && !is.na(x)
}

.is_scalar_character <-
    function(x)
{
    is.character(x) && .is_scalar(x)
}

.is_scalar_numeric <-
    function(x)
{
    is.numeric(x) && .is_scalar(x)
}

.is_object_id <- .is_scalar_character

.tibbilize_list <-
    function(lst)
{
    if (inherits(lst, "data.frame")) {
        lst <- as_tibble(lst)
    } else if (inherits(lst, "list")) {
        lst <- lapply(lst, .tibbilize_list)
    }
    lst
}