In ComputationalProteomics/OmicLoupe: OmicLoupe: Taking a closer look at omics

input <- params$input
error_check <- function(func) {
    tryCatch({
        func()
    },
    error=function(e) {
        print("An error was encountered. Please sure the plots are showing up correctly in OmicLoupe before export.")
        print("If not helping, please contact the developers for further support")
        print("Error message: ")
        print(e)
    })
}

Plots

Volcano plots

error_check(params$make_ref_volcano)

error_check(params$make_comp_volcano)

MA plots

error_check(params$make_ref_ma)

error_check(params$make_comp_ma)

P-value histogram

error_check(params$make_ref_phist)

error_check(params$make_comp_phist)

Settings

Tab settings

Current tab

settings_df <- params$input %>% 
    reactiveValuesToList() %>%
    unlist() %>%
    data.frame() %>%
    rownames_to_column() %>%
    `colnames<-`(c("Name", "Value"))
DT::datatable(settings_df)

Setup tab

setup_settings_df <- params$setup_input %>%
    reactiveValuesToList() %>%
    unlist() %>%
    data.frame() %>%
    rownames_to_column() %>%
    `colnames<-`(c("Name", "Value"))
DT::datatable(setup_settings_df)

Environment

sessionInfo()

ComputationalProteomics/OmicLoupe documentation built on Feb. 12, 2023, 3:57 p.m.