R/remove_margins.R

In RajLabMSSM/echoplot: echoverse module: Locus plot creation for fine-mapping and colocalization studies

remove_margins <- function(TRKS,
                           dat,
                           verbose=TRUE){
    requireNamespace("ggplot2")
    
    messager("+ Removing subplot margins...", v=verbose)
    TRKS_std <- list()
    for(x in names(TRKS)){ 
        # Some plots only had the labels tranformed, not the actual values.
        ## Check which ones are which and set the limits accordingly.
        TRKS_std[[x]] <-  suppressMessages(suppressWarnings(
            TRKS[[x]] +
                ggplot2::theme(plot.margin = ggplot2::unit(rep(0,4),"cm") )
        ))
    }
    return(TRKS_std)
}