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

Venn

error_check(params$make_venn_plot)

error_check(params$make_fold_frac_plot())

Upset

error_check(params$make_upset_plot)

Fold comparisons

error_check(params$make_fold_comparison_plot)

Upset (qualitative)

error_check(params$make_upset_qualitative_plot)

Settings

suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(tibble))
suppressPackageStartupMessages(library(DT))
suppressPackageStartupMessages(library(shiny))

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)