R/supports.transparent.R

Defines functions supports.transparent

supports.transparent <- function() {
    query <- dev.capabilities("semiTransparency")$semiTransparency
    if (is.na(query)) 
        query <- FALSE
    return(query)
}

Try the mudfold package in your browser

Any scripts or data that you put into this service are public.

mudfold documentation built on Nov. 24, 2022, 5:09 p.m.